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AN INITIAL INVESTIGATION INTO METHODS OF COMPUTING TRANSONIC 
AERODYNAMIC SENSITIVITY COEFICIENTS 

I . Introduction 


This report covers approximately the period from July 
1990 thru December 1990. During this reporting period, work 
has continued on studies necessary to develop the "quasi- 
analytical" sensitivity method for three dimensional 
transonic flow about wings. In addition, initial numerical 
investigations have been carried out and some very 
preliminary results obtained. 


II . Personnel 


The individuals associated with this project during the 
present reporting period have been Dr. Leland A. Carlson, 
Principal Investigator, and Hesham Elbanna, Graduate 
Research Assistant. Mr. Elbanna has been partially 
supported by the project during this period. 

Ill . Research Progress 

The efforts during the past six months and the current 
status of the project are summarized by a report prepared by 
Mr. Elbanna and contained herein as Appendix I. (Note that 
Appendix I contains subappendices A thru D.) As can be seen 
from this appendix, the primary effort has been the 
continued development of the three-dimensional quasi- 
analytical sensitivity analysis and the ancillary driver 
programs needed to carry out the studies and perform 
comparisons. Currently, the code is essentially contained 
in one unified package which includes the following: 

(a) A three dimensional transonic wing analysis program 
(ZEBRA) , 
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(b) A quasi-analytical portion which determines the 
matrix elements in the quasi-analytical equations, 

(c) A method for computing the sensitivity coefficients 
from the resulting quasi-analytical equations, 

(d) A package to determine for comparison purposes 
sensitivity coefficients via the finite difference approach, 
and, 

(e) A graphics package. 

The total program currently consists of about ten 
thousand FORTRAN statements, although it is hoped that this 
can be shortened significantly as the research progresses. 
Further, in the portion which determines the matrix 
elements, a major portion of the code from a time standpoint 
is for each grid only run once to determine symbolic logic 
that indicates where the non-zero elements are in the 
matrix. Once this portion is executed, a typical run 
requires 2-3 min for the transonic analysis, about 10 min 
for the quasi-analytical setup and solution (relatively 
independent of the number of design variables) , about 2-3 
minutes for a finite difference sensitivity analysis for 
each design variable, plus the time associated with 
graphical output. These times are all for the IBM 3 090 at 
the TAMU Computer Services Center. 

Thus, at this point the quasi-analytical approach and 
the finite difference approach each require about the same 
amount of computer time if only two design variables are 
considered. However, as the number of design variables is 
increased and as the quasi-analytical method is made more 
efficient, it is anticipated that the latter approach will 
be faster and more efficient. 

One of the advances made during the last six months has 
been the investigation of various solvers for the 
sensitivity equations. As a result, the present scheme now 
uses an iterative conjugate gradient method and the 
generalized minimum residual algorithm (GEMRES) . These 
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approaches appear to be very efficient and for the present 
test case only require a total memory for the entire code of 
40 Mb. (Note that in the Appendix I, it is stated that the 
memory requirements are 90Mb. The larger value was 
initially used to ensure adequate allocation. However, it 
has since been determined that 40Mb at the most is actually 
needed. ) 

As indicated in Appendix I, some very preliminary 
results have been obtained with both the finite difference 
approach and the quasi-analytical method. However, as can 
be seen by looking at the results, the current quasi- 
analytical results are in error. Since this appendix was 
prepared, an error has been discovered in the coding for the 
determination of the quasi-analytical matrix elements 
associated with the wing boundary conditions and the wake. 
Consequently, the various MACSYMA codes are being re-run in 
order to generate the "correct" FORTRAN code. However, this 
is a lengthy process; and new results will probably not be 
available for this report. 

In any event, it is believed that steady progress is 
being made and that useful results will be obtained soon. 

IV. Project Status 

During this period, additional funds were awarded to 
the Grant to cover the period 1 June 1990 thru 31 December 
1990; and a renewal proposal to cover another twelve months 
was submitted. Subsequently, the faciliate interfacing with 
the renewal, the present period was extended thru February 
28th 1991. It is anticipated that the renewal funds will be 
available March 1, 1991. 
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V. Future Efforts 


During the next six months, work will continue on 
developing the quasi-analtyical approach. In addition to 
debugging the program etc. and obtaining correct answers, 
empahsis will be placed on making the quasi-analytical 
method more efficient with respect to both CPU time and 
storage requirements. Further, work will be initiated to 
handle additional design variables, to extend the method to 
transonic and supersonic freestreams, and to generalize the 
gemoetry specification. Also, after appropriate discussions 
with personal at NASA Langley Research Center, consideration 
will be given to developing the quasi-analytical approach 
for a three-dimensional small perturbation potential code, 
which would be supplied by NASA Langley. The latter effort 
would allow comparison with the sensitivity results obtained 
using a full potential code. 

VI . Technical Monitor 

The technical monitor for this project is Dr. E. Carson 
Yates, Jr., Interdisciplinary Research Office, NASA Langley, 
Research Center. 
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DETERMINATION OF AERODYNAMIC SENSITIVITY DERIVATIVES 
BASED ON THE FULL POTENTIAL EQUATION 
Prof. L.A. CARLSON 
H.M. ELBANNA, (January, 1991) 


Nomenclature 


ANOFI 
AJ1, AJ2 
AIK, A2K 
Cp 

c (y) 

CIR 

DPU 

DPLO 

DXII 

ILE 

ITE 

J 

KUP 

KLOVV 

M 

Me 

A/co 

Poo 

p b 

9 oo 

RIP 

RIM 

RJP 

RJ 

RKP 

RK 

RlK 

R1KU 

R2KW 

R2KP 

U,V,W 

x,y,z 

X.Y.Z 

xle(y) 

xd" 

P 

Pco 

PO 

P 

*0 

a 

7 

<J 

4> 

$ 


[27/(7 + l)]Fo 


Boundary condition term ANOFI(j, k) 

Metric functions .4/l(;), AJ2(j) 

Metric functions .41 K(k), A2K(k) 

Pressure coefficient 
Chord function 
Circulation CIR(j) 

Wing upper surface boundary term 
Wing lower surface boundary term 
Metric function DXII(i) 

I-location of leading edge 
I-location of trailing edge 
Jacobian X x 

K-location of plane above wing 
K-location of plane below wing 
Local Mach number * 

Cutoff Mach number 0.94 > M c <1.0 
Freestream Mach number 
Freestream pressure, nondimensionalized by 
Stagnation pressure 

Freestream velocity, nondimensionalized by V m 
Retarded density coefficient RIP{j , k) = p t +\/ 2 ,j,k 
Retarded density coefficient 
Retarded density coefficient 
Retarded density coefficient 
Retarded density coefficient 
Retarded density coefficient 
Modified retarded density coefficient for wing upper surface 
Modified retarded density coefficient for wing lower surface 
Modified retarded density coefficient for wake upper surface 
Modified retarded density coefficient for wake lower surface 
Contravariant velocity components in computational plane 
Physical grid system 

Computational coordinates aligned with wing 

Leading edge function 

Vector of design variables 

Density, nondimensionalized by po 

Freestream density, nondimensionalized by po 

Stagnation density 

Retarded density coefficient 

First order backward difference operator 

Angle of attack 

Ratio of specific heats 

Switching function a — 1 — v 

Reduced potential function 

Full potential function 


RIM{], k) = Pi-i/2j t k 
RJP(j,k) = pij + 1/ 2,k 
RJ(j, k) = _x/ 2 ,Jfc 
RKP(j, k) = p, ,j,k + 1/2 
RK(j, k) = p lJik -i/2 
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Introduction 


In this progress report, work carried out during the period from July 1990 to December 1990 will 
be outlined. In addition, various overall steps and equations related to the three-dimensional sensitivity 
project will be listed herein for future reference. At this stage, it is helpful to distinguish two main phases 
that characterize the three-dimensional analysis/sensitivity project. Phase one of this research 1 ’ 2 was con- 
cerned with modifying the analysis (ZEBRA) program to suit the sensitivity study, developing FORTRAN' 
subroutines to calculate sensitivity derivatives using the finite-difference method, and, developing MAC- 
SYMA/FORTRAN algorithms to calculate the sensitivity coefficients using the quasianalvtical method. 
These tasks were finalized by an assembly procedure that aimed at combining the above mentioned sub- 
routines into one FORTRAN program. The main advantages of having a single FORTRAN program to 
carry out various analysis/sensitivity case studies are the minimization of disk read/write operations and 
the ability to debug/test/append any future additions to the entire project with ease, compatability, and 
speed. The second phase of the project will be concerned with debugging operations, addition of design 
variables, increasing solver efficiency, and carrying out a variety of case studies. The sections covered in this 
report are as follows, 

• Symbolic Differentiation of the Full Potential Residual Expression. 

• Structure of the Analysis/Sensitivity FORTRAN Code. 

• Linear Solvers for the Sensitivity Equation. 

• Primary Results and Debugging Operations. 

• Future Work. 

• Further Theoretical Aspects. 

It is to be noted that the following sections include the effort up to the current state of work progress, this 
state being at the junction between the first phase and the second phase of the analysis/sensitivitv project. 

Symb olic Differentiation of the Full Potential Residual Expression 

Following the line of formulation adopted in the two-dimensional sensitivity study, the quasianalvtical 
method applied to the three-dimensional full potential equation yields the sensitivity equation, 


\ _ _ ( dRx^k \ 

ddi j \ dXD J ~ dXD J 


( 1 ) 


The residual expression of the full potential equation in conservative form (in the computational plane 
and using a shearing transformation) is written in terms of backward differences as 


P — A ( pV \ l , pV \ c ,PW. 

- <-* ( — )t-l/2.;,* T 6 y(— )i,j + l/t,k + M — )t,j,*-l/2 (2) 

The density is replaced by the retarded density coefficient in order to maintain stability in regions of 
supersonic flow. Therefore, Eq.(2) is written as, 


■ pi- 


py 


Ri, } ,k - 6x(—), + i /7 .j'k 4- h{—)i,j+i/-i,k 


S ,P W , 

°z(~r)>J,k + l/2 


( 3 ) 


= A 

L\ j 


fpU pV pY 

, — ).-l/2 + [( — )i,; + l/2,t ~ ( ~ - 1/2, t] 


+ [( £ rk,-,* + 1/2 


,pW 

(“T” 1 / 2 ] (4) 
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In ZEBRA, Eq.(4) is coded as follows, 


R,.j, k = ( FIP - FIM) + ( FJP - FJM) 4- {FKP - F KM) + ANOFI (5) 


=[RIP O' 


-RIM 0\- U , , u'MRJP V.j-./i :-RJ VV,-i/ 3 ±1 + [RK P W,. yk + Ui -RK 


W. 


j‘ <-:/3i 


rA.VOFI 


( 6 ) 


where 


ANOFI(i, j, k) 


—.433 A/ R1A' DPU, k = KUP, ILE < i < ITE 
-433P RlKU DPLO, k = KLOW, ILE < i < ITE 
.4333/ R2KIV CIR, k = KUP, ITE < i 
-.4333/ R2KP CIR, k = KLOW, ITE < i 


(•) 


is the term that includes wing and wake boundary conditions. Note that the Jacobian is incorporated into the 
transformation coefficients of the contravariant velocity components. Next, the retarded density coefficients 
are given by, 


RI P(i, J. k) — (1 V t ~l/2,],k)pi + l/‘2,j,k -r Vi + l/2,j,kPi-l/2J,k 


( 8 ) 


where 


— ^i-kl/2.j,k{Pi-l/2,j,k - P,-l/2,j,k) + Pt — 1/2, j,k 


RJP(i,J, k ) — — (pi,j,k — Pi.j + l,*) 


RKP(i. j, k) = ~{pi,j, k t Pi,j,kFi) 


Pi,j,k = [l - j{U4> x + V$y + W$ z )]f^ k 


Vi,j,k — rnm[l,max(l — 


Me 

K,k 


. 0 )] 


( 9 ) 

( 10 ) 

( 11 ) 

( 12 ) 

(13) 


Notice that the retarded density coefficient RIP(i,j,k) is evaluated only at the midsegment point 
i + 1/2, j, k while the values at i. j + 1/2. k and i, j, k + 1/2 [RJP{i,j, k) and RKP(i,j, k)} are obtained by 
averages of the surrounding points. The Mach number is obtained from the following relation, 


Pi.i.k 


* = (£)~ = 0 + 


(H) 


and therefore, 


<.* = —y^ - !) 


where is nondimensionalized by p 0 * From Eq.(15) into Eq.(l3), 


0, 


AF|,; p Jfe < 1 


'■ J ' k ■ i 1 - > 1 


and therefore, 


y t+i/2,j,k - S j _ 


(7— l)lV/ : /2 ^ -I 


M,,j,k < 1 


(15) 


(16) 


(17) 
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f 1, 

a t + l/2 1 j,k — 1 - * / i~l/2.j f k = < (7-l)A/./2 

< 1 

(18) 

^ Rpi.j.i* -rp t - l.j.fc )/ 2] : 

The contravariant velocity components are given bv, 

— > — x ' ^ 1 

^ = + ^y)^X 4- X y $ Y 


(19) 

^ = Y 4* $Y 


(20) 

w = $ z 

In order to improve the convergence of the analysis routine, 
perturbation and freestream components as follows, 

the full potential is split into 

(21) 

separate 

— Ci.j,k -r -Y^Cc^a) -f Zq 0 o 
Differentiating Eq.(22) with respect to X,Y,Z respectively, 

Sin (a) 

(22) 

(*x)-..j.k=(<Px)i.j.k+Xrq^Co3(a) 


(23) 

(^y): j. )» j j, 4-Xyq^ Cot (a) 


(24) 

(*z)-. j.*=(<Pz), .j.h^Zzq^Sm(a) 

where 


(25) 

(°x)>;'* = DXII(i)(<p l + lJh - < p ijk) 


(26) 


h-<t>L j J.-rtfi-i j + i.j, : .j. k )]/2 

(27) 


utimaTmd^X S ‘T Sf Tt“°" “ U5 S ‘° ‘'“ !r ° m ll " pl,> ' si ' sI *' id s -' stem (I,M) into a cjpu- 
tationai grid (X,Y,Z) aligned with the wing. This transformation is given by, 


c (y) 

Y(y) = y 


(29) 

(30) 


Z{z)=z 


(31) 


ootent^ H T® out the analytical differentiation of the residual expression, it is necessary to find all 
potentiai dependencies. Furthermore, the full expression is divided into subexpressions in ordei to simplify 
and optimize subsequent expression evaluations. Appendix A includes a MACSYMA program that deter- 
mines various potential dependencies for each residual subexpression. The result of running this program 
o nc u ed in Appendix A. In addition, the above equations are written in functional form and given 

are'given Tillols ^ ^ ^ inV °' Ved ^ dependencies - These equations 
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R,j,k = Ri,j' k (RIP, RIM , RJP, RJ, RKP , RK , V, V, 

H* ANOFI) 

(32) 

where 



RIP = RI P($ x * * $ z • P, V, W) 


(33) 

RIM = RIM($ x ,*y, *z, C r . V, W) 


(34) 

RJP = RJP(4>x,$y,$ z ,U, V,W) 


(35) 

RJ = RJ&x,*y,*z, P, V, W) 


(36) 

RK P ~ RK P($x . i U, V, W) 


(37) 

RK = RK U, V’ W ) 


(38) 

ANOFI = ANOFI(RlK. DPU, RlKU, DPLO , R2KW, R2KP , CIR) 

(39) 

and, 



& 

ST 

n 

• — ► 


(40) 

II 

•e* 

* 

& 


(41) 

u 

*-*■ 

ii 


(42) 

= $x[4>il,JJ f kky A/oO, Qf] 


(43) 

Moo, a] 


(44) 



(45) 

As mentioned above, once the program in Appendix A is executed, potential dependencies are used 
in symbolically differentiating the general residual expression and residual boundary updates (wing, wake, 
and right hand side vectors). This is achieved using the MACSYMA program given in Appendix B. The 
result of running the analytic differentiation program is a segment of FORTRAN subroutines presented in 
Appendix C. This segment of FORTRAN code is then transferred from the VAX machine and linked into 
the analysis/sensitivity program on the IBM-3090. 

It is to be noted that previous work 1,2 included operations similar to those mentioned above. How- 


ever, residual updates were prepared separately using Eq.(5) with the last term 'ANOFI* (the term* that 
includes wing and wake boundary conditions) replaced by the appropriate boundary terms, then each resid- 
ual expression was simplified and differentiated using a different MACSYMA program. As a result, multiple 
MACSYMA codes (about six separate codes) had to be prepared to yield the required FORTRAN source 
segments. This resulted in a total size of about 12,000 lines of source code. No major problems were encoun- 
tered in compiling this number of code lines since they were developed in the form of multiple subroutines. 
Currently, the same FORTRAN segments were reduced in size to about 7,000 lines of FORTRAN source 
code. This was achieved by handling both the general residual expression and the ’ANOFI’ term separately 
thus cancelling repeated (or equivalent) portions of the FORTRAN code. Consequently, it should be noted 
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that the codes given in the Appendices are still being modified and optimized for size and speed and that 
the enclosed versions of these codes (up to date versions) are still being debugged and refined. 

For the current three-dimensional problem, design variables were previously 1 ' 2 defined as follows, 

(a) Freestream design varaibles. These include the freestream Mach number and the angle of attack. 

(b) Cross-section design variables. These include variables that define the airfoil section (such as maximum 
thickness, maximum camber, and location of maximum camber) and variables that define the setting of 
each spanwise section (such as geometric twist and dihedral). 

(c) Planform design variables. These are variables that define the geomtry of the wing planform. 

These variables are used in preparing the right hand side vectors. In carrying out this step, the residual is 
analytically differentiated with respect to each design variable and a corresponding segment of FORTRAN 
code is generated. Refer to Appendices B and C for the details of these operations. 

Finally, Appendix D includes a MACSYMA program to further process the results obtained from solving 
he sensitivity equation. The result of running this program is a segment of FORTRAN code used to 
calculate pressure coefficient sensitivity derivatives given the reduced potential sensitivity derivatives. A 
ransfer/link operation similar to the above is applied in order to merge this FORTRAN segment into the 
analysis/sensiti vity program. 

Structure of the Analysis /Sensitivity FORTRAN Code 

The analysis/sensitivity code is basically composed of the analysis program (ZEBRA), the finite- 
difference sensitivity driver, and the quasianalytical sensitivity driver. Furthermore, graphics routines are 
also included in the main code in order to assist in examining the results. 

Execution of the main code starts thru an analysis (ZEBRA) run followed bv sensitivity derivative 
calculations. These calculations are earned out either using the finite-difference method or using the quasi- 
ana y ica approac . The finite-difference portion of the code is set up to allow two consecutive ZEBRA 
runs to be used to calculate a vector of sensitivity derivatives. This brute force technique while straight 
orward in application has the disadvantages of being expensive to implement and exhibits accuracy prob- 

neTted no°J OOP* “‘T! sensitivity driver, it consists of two main parts. The first part is a group of 

ted E ^' L °° PS “ sed to assemble the jacobian matrix and the right hand side vector(s). This is achieved 

ZembT t ^ R ^ N , Segment j 8 enera -ted via MACSYMA (see Appendix C). After the numerical 

assembly step is completed, the second part of the sensitivity driver, a setup that allows execution of one 
of several linear sparse solvers, is used to solve the sensitivity equation and yields the vector(s) of sensi- 
tivity derivatives. Finally, the resulting sensitivity derivatives (d<p/dXD) are further processed in order to 

COeffia ' nt senSltivity derivatives (dCp/dXD). This step is carried out separately using a 
MACS x MA program that generates corresponding FORTRAN subroutines (see Appendix D). 

Linear S olvers for the Sensitivity Equation 

For the current three-dimensional problem and for the medium grid used, direct solvers that were 
previously used in the two-dimensional problem (those based on tridiagonal decomposition and full Gaussian 
e lmination) failed to operate on the 3-D jacobian matrix basically due to memory limitations. On the other 
hand, iterative routines developed earlier for the two-dimensional problem worked properlv however turned 

the IBMVoon^t^ S 0W ' i atCr ° n : ^ ^ dedded t0 try ° Ut SOme ,ibrary routines that were available on 
he IBM-3090. These turned out to be extremely efficient with regards to memory requirements and speed of 

theTRAr n tnl PPa \ en i ^ r T° n f ° r tHiS effidency lies in the ability ‘bese routines to take advantage of 
the IBM-3090 architecture and vectorization facility besides being written in machine code and optimized for 

speedy In addition, the inclusion of these routines into the solver portion of the analysis/sensitivitv program 
turned out to be straightforward in the form of regular FORTRAN calls. Two scientific library solvers (based 
on the iterative conjugate gradient method and the generalized minimum residual algorithm)' were used with 
success and a GO REGION of about 90MB was allocated in the JCL with no major problems. NoTce £« 
the exact amount of storage needed for each of these solvers will depend on the structure of the jacobian 
matrix (roughly, the structure is sparse and banded), the details of which will be determined at a later stage. 
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Primary Results and Debugging Operations 

Currently, the MACSY MA codes are being debugged and revised to increase both the efficiency and 
handling of the resulting FORTRAN code segments. For example, as mentioned earlier, the last term in 
Eq.(5) is handled separately without revising Eq.(5) in its entirety. This has the advantage of reducing the 
size of both the MACSTt MA program and FORTRAN generated segments. In addition, extensive debugging 
and review of the entire work will be performed in parallel to the above steps. 

The sensitivity of the pressure coefficient Cp with respect to the design variables is obtained using 
dip/dXD. The expression for the pressure coefficient is, 


Cp - 


P-Po o 
nlof 2 


Substituting for the pressure using the isentropic relation, therefore 


where 


Cp = 


t ± Ulz 

pqIc 


if - p~) 


(46) 


(47) 


p — [l — — ~~ (i $x 4- l r $y + W$z)} "’~ 1 (48) 

and U,V,W,$ X -$y,$z are given by equations (19)-(2l) and (23)-(25) respectively. Notice also that the 
freestream values q x , p Xl andP x are obtained using the relations, 


q - c = 


7+1 


.11/2 


1 + 2 /Ml ‘ 


= il 


7-1 


,2 ll/f-r-1) 


(49) 

(50) 


P 


oo 


7 + 1 

27 


(51) 


Refer to Appendix D for the symbolic calculation of pressure coefficient sensitivity derivatives using reduced 
potential sensitivity derivatives. 

Some primary results obtained by executing the analysis/sensitivity code about a fixed design point 
are also presented in this report following Appendix D. The planform used is that of an ONERA-M6 wing 
with a six percent noncambered parabolic-arc section and the flowfield (M*, = 0.8, a = 0.0) is computed 
on a 45*30*16 medium grid (i.e. symmetric subcritical flowfield). Figures (1) and (2) show the pressure 
coefficient for this subcritical case. Figures (3) and (4) include finite-difference pressure coefficient sensitivity 
derivatives with respect to Mach number and angle of attack respectively. Finally, Figures (5) and (6) contain 
the corresponding derivatives obtained by the quasianalytical method. Notice that the trends are different 
for both sets of the derivatives. It is believed that while the finite-difference results follow the trends obtained 
in the two-dimensional sensitivity study, the quasianalytical derivatives have different trends and therefore 
are in error. As mentioned earlier, debugging operations are underway with the finite-difference method 
being used as a reference for correct quasianalytical trends. 


Future Work 

As mentioned in the first section, the second phase of this project will be towards overall debugging 
of the analysis/sensitivity code with the objective being to match the sensitivity derivatives obtained thru 
the quasianalytical method with those derivatives obtained thru the finite-difference approach. Initially, 
focus will be on sensitivities with respect to freestream design variables (Mach number and angle of attack) 
followed by sensitivities with respect to both airfoil and planform design variables. It is to be noted that 
the inclusion of the later variables might require some sort of semi-analytical treatment to handle right hand 
side calculations corresponding to these variables. Next, various case studies will be conducted in order 




t0 :r/ ar ^ and / mP T,°" ,^° th the accuracy and efficienc >' ° f the q^^vtical and finite difference 
methods. This step will be followed by a physical interpretation of the results. Finally, minor modifications 

in the form of supersonic boundary conditions will be added to the analysis/sensitivity program in order to 
allow execution of supersonic test cases. 


Further Theoretical Aspects 

In some optimization studies, higher sensitivity derivatives might be needed. In general, it is possible 
to extend the quasianalytical approach in order to obtain second order sensitivity derivatives. The following 
ideas could be applied directly to the sensitivity equation. Consider the linear svstem 


r /2J* Se " SUlVlty of X with res P ect the elements of A and B (XD m ) is obtained bv differentiating 
Eq.(o2) with respect to AD m , - s 


dA 

•dX D„ 


or, 


dX 


■dXDr 


f dX , 

_ r dB 


dXDm 1 

dA'D m ^ 

(53) 

dB 

dA . 


dXD m ~ 

dXD m X ] 

(54) 


Applying the above procedure to Eq.(l), second order sensitivity derivatives for the current three- 
dimensional problem could be obtained. The result is, 


f dA..;.* t / d 2 $n.jj,kk , / d 2 R, j k 

l d<p iliJjM lK dXD m dXD > ~ 1 dXD m dXD 


d 2 R-i.j.k 


dXD m dp 


J k 


dXD m 


(55) 


The first term in Eq.(55) is the (n’n) jacobian matrix and is obtained as explained earlier. The second 
term represents the unknown second order sensitivity vector (n*l). The third term is the (n*l) vector of 
derivative of the right hand side with respect to a second design variable. The fourth term is the derivative 
of the Jacob, an matrix with respect to a design variable, and is an (n*n) matrix. Finally, the last term in 
q.(ooj is t e first order sensitivity vector, and would be obtained typically by solving Eq.fl). Notice that 
the extra work required to obtain second order derivatives would be to carrv out additional MACSYMA 
operations (basically analytical differentiation) associated with the third and fourth terms of Eq.(55). Notice 
t at Eq.(oo) is similar to Eq.(l) except for the right hand sides which are modified. Similarly the above 
procedure could be applied to obtain higher derivatives for the current three dimensional problem: Examples 
of second order sensitivity derivatives are d 2 o/da 2 and d 2 p/dM x da. 
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APPENDIX A 


MACSYMA CODE TO FIND THE RESIDUAL DEPENDENCIES 



* 

RMD . MAC : 

POTENTIAL DEPENDENCIES 






SHOWTIME : 
PX(I.d.K) 

TRUES 

:* [P(I+1,d 

, K 

) ,p(i 

, J 

, K 

)]$ 


PY( I ,d.K) 

:= [PCI .d 

, K 

) , p ( i 

,d- 

1 , K 

) , p< i+i ,u 

.K ) . 


P(I+1 ,d- 

1 , K 

).p(i 

,vj+1 ,K 

) .P( 1 + 1 ,d+1 ,K )]$ 

PZ[0](I ,d, 

,K) : * [ P ( I ,d 


) ,p( i 

, J 

, K- 

1).P(I .d 

, K+ 1 ) , 


P(I + 1 ,d 


) ,p(i+i 

.0 

t K- 

1).P(I+1.d 

.K+1)]$ 


PHIU(U) :* [P(ITE,d,KUP),P(ITE,d,KUP+1),P(ITE,d, KUP+2 ) ]$ 
PHIL(J) :* [P(ITE,d,KLO),P(ITE.d,KLO-1).P(ITE,d.KLO-2)]$ 
CIRC(d) :* UNION(PHIU( d) , PHIL(d) )$ 


PZ[1](I,d,K):* [P(I 

, J 

,K 

).p(i ,u 

,K+1),P(I ,d 

.K+2) , 

P(I+1 , J 

,K 

),p(i+i ,u 

, K+ 1 ) , P ( I + 1 , d 

. K+2) ] $ 

PZ[2](I .d.K) := [P(I 

, J 

, K 

),p(i ,u 

. K- 1 ) , P ( I ,d 

. K-2 ) . 

P(I+1 . J 


).p(i+i,d 

, K- 1 ) , P( 1+ 1 , d 

.K-2)]$ 


PZ [ 3 ] ( I , d , K ) : = UNI ON ( [ P ( I ,d.K ),P(I ,d.K-1).P(I .U.K+1), 

P(I+1.J.K ).P(I+1,d.K-1).P(I+1. d,K+1) j.CIRC(J))$ 

PZ[4](I .d.K) :* UNION ( [ P ( I ,J,K ),P(I ,d,K-1),P(I .U.K+1), 

P ( I + 1 , U , K ).P(I+1.U.K-1).P(I+1,j[k+ 1) j.CIRC(j))$ 


FOR N : 0 THRU 4 DO ( 

RH [N](I,J.K) : = UN I ON ( PX ( I . d . K) , PY ( I , J , K ) . PZ [ N] ( I , J K)) 

RIP[N](I.d,K) := UNION(RH[N](I.d.K),RH[N](I-1,d,K)) 
RIM[N)(I,d,K) := RIP[N](I-1 ,d.K) j 


RES(I.d.K) 

:= [PCI 

. J- 

1 , K 

),P(I .d , K 

) , P( I , J+ 1 , K 

). 


P(I*M , J- 

1 , K 

).P(I+1.d , K 

) , P( 1+1 , J+ 1 . K 

), 


P( I 

,U 

, K- 

1 ) . P ( I , d . K+ 1 

) . P( I- 1 . J- 1 ,K 

) . 


p ( i - 1 .u 

. K 

) . P( 1-1 . d+1 ,K 

) 

]$ 


R1K ( ) 
R 1KU ( ) 
R2KW ( ) 
R2KP ( ) 


UNION(RIP[1](I.d.K),RIM[1](I,d.K) 
UN I ON (RIP[2](I,d,K).RIM[2](I,U,K) 
UNION (RIP[3]( I,d,K),RIM[3](I,d,K) 
UNI ON ( RIP[4](I,d,K),RIM[4](I,d,K) 


,RIP[l](I,d. K+ 1 ) , R IM[ 1 ] ( I , d , K+ 1 ) ) $ 
,RIP[2](I,d.K-1),RIM[2](I,U,K-1))$ 
,RIP[3](I.d.K-1).RIM[3](I.d.K-1))$ 

,RIP[4](I ,d,K+1 ) ,RIM[4](I ,d. K+ 1 ) ) $ 


FU ( I . d ) : * [ P ( I , d , K ) , P( I , d , K+ 1 ) , P ( I , d , K+2 ) ] 
FXU ( I , d ) : = UNI ON ( FU ( I . d ) , FU( I - 1 , d ) , FU( I + 1 , d ) ) 
FYU (I.d):» UNION(FU( I . d) ,FU( I ,d- 1 ) . FU(I . d+ 1 ) ) 
DPU () :* UNI ON ( FXU( I ,d) , FYU(I ,d) ) 


FL ( I , d ) : = [P( I , d ,K ) . P( I , d, K-1 ) , P( I , d, K-2) ] 
FXL (I.d):- UN I ON ( F L ( I , d ) , F L ( I - 1 , d ) , F L ( I + 1 , d ) ) 
FYL (I.d):* UNION ( F L ( I . d ) , F L ( I , d” 1 ) . F L ( I , d+ 1 ) ) 
DPLO() := UNION(FXL(I.d).FYL(I.d)) 

ANOF 1 1 ( ) := UNI ON( R 1 K ,DPU )$ 

ANOFI2( ) :* UNI ON( R 1 KU . DPLO )$ 

ANOF 1 3 ( ) := UNI ON ( R2KW . C I RC ) $ 

ANOF 1 4 ( ) := UNI ON ( R2KP . C I RC ) $ 


( RdP(l’dK) = Rd( I N d+1 P |<° )(I ’ J ’ K) ,RIM[03 (I •RIP[0](I,d-1,K),RIM[0](I,d-1 ,K) ) , 

RKP(l’d’K)-*RK(I^d R K+O 1(I ’ Ll,,<) ' RIMr0](I ' J ' ,<;) ’ RIPC0](I ' J ' ,< ' 1) ‘ RIM[0](I,U ’ K ' 1)) ' 
RTOT ( I . d.K) : =UNION(RES ,RIP,RIM,Rd,RdP.RK,RKP) ) j 

(RIP: RIP[0] (I ,d,K) , Rd: Rd(I.d.K). RdP: RdP(I.d.K), RES : RES(I,d K) 

RIM: RIM[0] ( I , d.K) , RK : RK(I.d.K), RKP : RKP(I.d.K), RTOT: RTOT ( I , d . K j ) $ 


/ 

(R1K : R 1 K (). DPU : DPU () , ATT 1 : ANOFI1())$ 

(R1KU: R1KUO. DPLO: DPL0() . ATT2 : ANOFI2())$ 

(R2KW: R2KW ( ) , CIRC: CIRC(d), ATT3 : AN0FI3())$ 

(R2KP: R2KP ( ) . CIRC: CIRC(d), ATT 4 : AN0FI4())$ 



A-1 


/ 


/ 

ORIGSiMAL PACE 'iS 

OF POOR QUALITY 



LT : 

[PC I -2. J-2.K-3)=P1 ,P(I-2, J-2.K-1 )»P51 ,P( 1-2. J-2.K+1 )«P101 .PCI-2, J-2 K+3)*P151 
P(I-1.J-2,K-3)=P2 , P ( I - 1 , J-2 , K- 1 ) = P52 , P ( I - 1 , J-2 . K+ 1 ) =P 102 , PC I “ 1 , J-2 , K + 3 ) =P 1 52 ! 
P ( I ,0-2,K-3)=P3 ,P(I . J-2 , K- 1 )»P53 , P( I , J- 2 , K+ 1 ) =P 103 , P ( I . J-2 , K+3 ) =P 1 53 , 
P( 1+1 , J-2,K-3)=P4 ,P( 1 + 1 , J-2.K-1 )=P54 , P ( I + 1 , J- 2 , K+ 1 ) =P 104 , P C I + 1 . J-2 . K+3 ) =P 1 54 , 
PCI+2,J-2,K-3)=P5 ,P(I+2.J-2,K-1)=P55,P(I+2,J-2,K+1)=P105,P(I+2,J-2.K+3)=P155, 
PCI-2, J-1,K-3) = P6 , P( 1-2 , J-1 ,K-1 )=P56 , P( 1-2, J- 1 ,K+1 )«P106 , P( 1-2, J- 1 , K + 3) =P 156 i 
PC I- 1 . J-1 ,K-3)«P7 ,P(I-1,J-1,K-1)*P57,P(I-1, J-1, K+1)«P1 07, PCI-1, J-1, K+3)=P157, 
p ( I , J” 1 , K-3 ) = P8 ,P(I , J-1 ,K- 1 ) = P58 . PC I , J-1.K+1 )=P108,PCl , J- 1 , K+3 ) =P 1 58 , 

P(I+1,J-1,K-3)*P9 ,P(I+1,J-1,K-1)=P59.P(I+1,J-1,K+1)=P109,P(I+1,J-1,K+3)=P159, 
P(I+2.J-1,K-3)=P10,P(I+2,J-1,K-1) = P60 ,P(I+2,J-1,K+1)=P110,P(I+2.J-1,K+3)»P1 60 ' 
PCI-2.J ,K-3)«P1 1 ,P( 1-2, J ,K-1)=P61, P(I-2, J , K+ 1 ) =P 1 1 1 . P ( I -2 , J ,K + 3)»P16l! 

PCI-1, J , K-3 ) =P 1 2 , P ( I - 1 , J , K-1)=P62, PCI-1, J , K+1)*P112.P(I-1.J , K + 3)=P162 ,' 

p ( I •'J ,K-3)=P13 , P( I ,J , K- 1 ) =P63 , P ( I ,J ,K+ 1 ) = P 1 13 , PC I ,J ,K+3)=P163' 

PCI + 1.J ,K-3) = P14,P(I+1 , J , K- 1 ) = P64 , P ( I + 1 , J ,K+1)=P114,P(I + 1,J ,K+3)=P164' 

P C I +2 , J ,K-3)«P15,P(I+2, J ,K-1)=P65,P(I+2,J , K+1 )«P1 15 . P( 1+2, J ,K+3)=P16si 

PC 1-2, J+1 ,K-3)«P16 , P( 1-2, J+1 ,K- 1 )=P66 , P ( I -2 , J+ 1 , K+ 1 ) = P 1 1 6 , P ( I -2 , J+ 1 . K+3 ) =P 1 66 ’ 
P ( I - 1 , J+ 1,K-3)=P17,P(I-1, J+ 1 , K - 1 ) «P67 , P ( I - 1 , J+ 1 , K+ 1 ) *P 1 1 7 , P ( I - 1 . J+ 1 , K+3 ) *P 1 67 , 
P(I , J+1 ,K-3)«P18 , P( I , J+1 ,K-1 )»P68 . P( I , J+1 ,K+1 )*P1 18, P( I , J+ 1 , K + 3 ) =P 168 ! 

P C I + 1 , J+ 1,K-3)=P19,P(I+1, J+ 1 ,K-1 ) = P69,P(I + 1 , J+1, K+1 ) *P 1 1 9 , P C I + 1 , J+ 1 ,K+3)=P169, 

P( 1+2, J+1 ,K-3 )=P20, P( 1+2 . J+ 1 , K- 1 )=P70, P( 1+2 , J+ 1 ,K+1 )«P120, P( 1+2, J+1 ,K+3)=P 17o! 
PCl-2,J+2,K-3)=P21,P(I-2,J+2,K-1)=P71,P(I-2,J+2,K+1)=P121.P(I-2,J+2 K+3)=P171 
P(I-1,J+2,K-3)=P22,P(I-1,J+2,K-1)=P72,P(I-1,J+2,K+1)=P122,P(I-1,J+2,K+3)=P172* 
PCI , 0+2 , K-3 ) = P23 , P ( I , J+2 ,K- 1 )=P73 , P( I , J+2 , K+ 1 ) = P 123 , P ( I , J+2 . K+3 ) =P 1 73 ' 

P C I + 1 , J+2 ,K-3) = P24,P(I + 1, J+2 ,K-1)«P74,P(I+1,J + 2,K+1)*P124,P(I+1, J+2 ,K + 3)=P174,' 
P(I+2,J+2,K-3)=P25,P(I+2,J+2,K-1)=P75,P(I+2,J+2,K+1)=P125,PCI+2,J+2,K+3)=P175, 

PC I -2, J-2,K-2)=P26,P( 1-2, J-2 , K ) =P76 , P ( 1-2. J-2 , K+2 ) =P 1 26 . P ( I TE . J-1 , K10-2 ) =P 1 76 
PCI-1. J-2,K-2)=P27,P(I-1. J-2.K)«P77,P(I-1 , J-2 , K+2 ) =P 1 27 , P ( ITE , J-1 . KLO- 1 ) *P 1 77 ’ 
PCI , J-2,K-2)=P28,P(I , J-2,K)*P78,P(I . J-2 . K+2 ) =P 1 28 . P ( ITE . J- 1 , KLO )=P178’ 

PCI+1.J-2,K-2)=P29,P(I+1,J-2,K)=P79,P(I+1,J-2,K+2)=P129,P(ITE,J-1, KUP )=P179, 
P(I+2,J-2,K-2)=P30,P(I+2,J-2 , K)=P80, P( 1+2 . J-2 , K+2 ) =P 1 30. PC ITE , J- 1 .KUP+1 )=P 180 ' 
PC I -2, J-1 ,K-2)=P31 ,P( 1-2, J-1 ,K)=P81 .PC 1*2. J-1 , K + 2 )«P 1 31 . P( ITE . J-1 ,KUP+2)=P181 ’ 
P( 1-1, J-1, K-2)=P32, PCI-1, J-1, K)«P82,P(I-1, J-1, K+2)=P132.P( ITE, J , KLO-2 ) = P 1 82 , 
PCI . J- 1 ,K-2)=P33 , P( I , J-1 ,K)=P83,PCI , J- 1 , K+2 ) *P 1 33 , P C I TE . J . KLO- 1 ) =P 1 83 ,’ 

PC 1 + 1 , J- 1 . K-2 )=P34 , P( 1+ 1 , J- 1 , K ) = P84 , P( 1+ 1 , J- 1 , K+2 ) =P 1 34 , PC ITE , J ,KLO )=P184 ’ 
PC 1 + 2, J-1 ,K-2)»P35.P(I + 2, J-1,K)«P85.P( 1 + 2. J-1 , K+2 ) =P 1 35 . PC ITE . J .KUP )=Pi85, 
P(I-2,J ,K-2)«P36 , PC 1-2 , J ,K)»P86 . P( 1-2 , J , K+2 ) = P 1 36 . P C ITE , J , KUP+ 1 ) =P 1 86 ’ 

PCI-1.J , K-2 ) =P37 , P( I - 1 , J , K ) =P87 , P ( I - 1 , J , K+2 )=P 1 37 , P C ITE . J ,KUP+2 ) «P 187 [ 
PCI ,J , K-2 ) =P38 , PC I ,J , K ) * P88 , P ( I ,J . K + 2 ) «P 1 38 , P C ITE . J+ 1 , KLO- 2 ) =P 1 88 | 
PCI + 1.J ,K-2)=P39,P(I + 1 . J , K ) =P89 , P ( I + 1 , J . K+2 ) -P 1 39 . P ( ITE , J+ 1 , KLO- 1 ) =P 1 89 ' 

PCI+2.J ,K-2)=P40. P( 1+2 , J ,K)«P90, P( 1+2 , J , K+2 ) *P 140, PC ITE , 0+ 1 . KLO )=P190, 
P( 1-2. J+1 , K- 2 ) = P4 1 ,P( 1-2, J+1 , K ) =P9 1 ,P( 1-2, J+1 ,K + 2)=P141 .PCITE.J+1 . KUP ) =P 19 1 ' 

P ( I — 1 >J+1 ,K-2)=P42, P( 1-1 ,J+1 ,K)=P92.P( 1-1 , J+1 ,K + 2) = P142,P(ITE,J+1 , KUP+ 1 ) =P 1 92 ! 
PCI , J+1,K-2)»P43,P(I , J+1 ,K)=P93 , P( I . J+ 1 , K+2 ) *P 1 43 , P( ITE . J+ 1 . KUP+2 ) *P 193 ' 

PCI + 1 . J+1 ,K-2)=P44 , P( 1 + 1 . J+1 ,k) = P94 , P ( I + 1 , J+1 ,K+2)*P144, 

PC 1 + 2, J+1 . K-2 ) = P45 , PC 1 + 2, J+1 , K ) = P95 , P ( I +2 , J+ 1 . K+2 ) *P 1 45 ’ 

PC I -2, J+2,K-2)«P46,P(I-2, J+2 , K ) =P96 , P ( I - 2 , J+2 . K+2 ) =P 1 46 [ 

PCI-1 . J+2,K-2)=P47 , P( I- 1 , J+2 , K ) =P97 , P ( I - 1 , J+ 2 , K+2 ) *P 1 47 ‘ 

P ( I , J+2 , K-2 ) =P48 , P ( I , J+2,K)=P98 , P( I , J+2 , K+2 ) »P 1 48 i 
PC 1 + 1 , J+2,K-2)=P49, P( 1 + 1 , J+2,K)*P99 , P ( I + 1 , J+2 , K+2 )*P149! 

P C I + 2 , J+2 , K- 2 ) = P50 ,P( I + 2,J+2,K)=P1 00 , P ( 1 + 1 ,J+2,K+2) = P1 50 ] $ 

< NI ; t 1 .1-1, 1-2, I ,1-1, 1-2, I .1-1, 1-2, I .1-1, 1-2. I ,1-1. 1-2], 

: CJ .J .J , J- 1 , J- 1 . J- 1 , J ,J ,J , J+1 , J+ 1 , J+1 , J ,J ,J ] 

NK K , K , K ,K , K- 1 , K- 1 , K- 1 , K , K , K , K+ 1 , K+ 1 , K+ 1 ] , 

NT 0 : [ 1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 j _ i t 1 _ i ] \ 

NT 1 : C 1 .1 .1 .0 .0 ,0 ,0 .0 ,0 ,0 ,0 .0 .1 ,1 [l ] ] 

NT2 ; [1 .1 ,1 ,0 ,0 ,0 ,1 ,1 ,1 ,0 ,0 ,0 .0 !o ,0 ]! 

NT3 : t 1 - 1 - 1 .o ,0 ,0 ,1 ,1 ,1 ,0 .0 ,0 ,0 .0 \o ] ’ 

NT4 : M - 1 .i .o ,0 ,0 .o ,0 ,0 ,0 .o ,0 ,1 .i ,’ i ]}$ 

(M : o, 

FOR N : 1 THRU 15 DO (M:M+1,IF NT0[N]»1 THEN PP0[MJ: PX ( NI [N] . NJ [ N] . NK [ N ] ) ) . 

FOR N : 1 THRU 15 DO (M:M+1,IF NT0[N]»1 THEN PPO[M]: PY ( NI [ N ] . N J [ N ] , NK [ N ] ) ) ' 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT0[N]*1 THEN PPO[M] : P2 [0] C NI [ N ] , N J [ N ] , NK [ N ] ) ) ) $ 
(M : O. 

FOR N : 1 THRU 15 DO (M:M+1,IF NT1[N]«1 THEN PP 1 [ M ] : PX ( NI [ N ] , NJ [ N ) , NK [ N ] ) ) , 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT 1 [ N ] * 1 THEN PP1[M]: PY ( NI [ N ] . NJ [ N ] , NK [ N ] ) ) , 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT 1 [ N j = 1 THEN PP 1 [ M ] : PZ [ 1 ] ( NI [ N ] , N J [ N ] , NK [ N ] ) ) j $ 

C M : 0 . 

FOR N : 1 THRU 15 DO (M:M+1,IF NT2[N]*1 THEN PP2[M]: PX CNI [ N] , NJ [N] . NK [ N ] ) ) , 

FOR N : 1 THRU 15 DO (M:M+1,IF NT2[N] = 1 THEN PP2[M]: PY ( NI [N] . NJ [N ] . NK [ N ] ) ) 

FOR N : 1 THRU 15 DO (M.-M+1.IF NT2[N]*1 THEN PP2[M]: PZ [ 2 ] ( NI [N] , NJ[N] , NK [ N ] ) ) j $ 

( M : 0 , 

FOR N:1 THRU 15 DO (M:M+1,IF NT3[N] = 1 THEN PP3[M]: PX ( NI [ N ] . N J [ N ) , NK [ N ] ) ) , 

FOR N : 1 THRU 15 DO (M:M+1,IF NT3[N]«1 THEN PP3[M): PY ( NI [N ] , N J [ N ] , NK [ N ] ) ) ’ 

FOR N : 1 THRU 15 DO (M:M+1,IF NT3[N] = 1 THEN PP3[M]: PZ [ 3] ( NI [N] . NJ[N] . NK [ N] ) ) )$ 

( M : 0 , 


A -2 



FOR N:1 THRU 15 DO (M:M+1.IF NT4[N]*1 THEN PP4[M]: PX ( NI [ N J , NJ [ N } , NK [ N ] ) ) 

FOR N: 1 THRU 15 DO (M:M+1.IF NT4[N]-1 THEN PP4[M]: PV ( NI [ N ] , NJ [ N ] ] NK [ N ] ) ) * 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT4[N]=1 THEN PP4[M]: PZ [ 4 ] ( NI [ N ] , NU [ N ] ] NK [ N ] ) ) ) $ 


(RLO: [RES, RIP, RIM, RJ, RK, RUP , RKP , RTOT ] , RPO : SUBST ( LT , RLO ) )$ 

FOR N : 1 THRU 8 DO ( RPO[ N ] : SORT ( RPO[N] ), PRINT("DEP‘' N RPO [ N ] ) )$ 

M : 0$ J ' 

FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT0[N]*1 THEN ( PPO[ M ]: SORT ( SUBST ( LT , PPO[ M ])), PRI NT ( •' LPO” M PPO[Ml)))$ 
FOR N: 1 THRU 1 5 DO 

( M : M+ 1 , I F NTO [ N ] = 1 THEN ( PPO[ M ] : SORT ( SU3ST ( LT , PPO[ M ] ) ) , PR I NT ( " LPO H , M , PPO [ M ] ) ) ) $ 
FOR N: 1 THRU 15 DO L J ' ' 

(M:M+1,IF NTO[ N ] = 1 THEN ( PPO[ M ]: SORT ( SUBST ( LT , PPO [ M })), PR INT (" LPO ", M , PPO[ M ]))) $ 


(RL1: [ R 1 K , DPU , ATT 1 ] 

FOR N : 1 THRU 3 DO ( RP 1 [ N ] : SORT ( 
M : 0$ 


, RP 1 : SUBST ( LT , Rl 1 ) )$ 

RP1[N] ), PRI NT ( M DEP H ,N,RP1[N]) )$ 


FOR N: 1 THRU 15 DO 

(M:M+1,IF NT 1 [ N ] = 1 THEN ( PP 1 [ M ]: SORT ( SUBST ( LT , PP 1 [ M ])), PR INT (" LP 1 *• f M PP1[M])))S 
FOR N: 1 THRU 1 5 DO 1 J ; ' 39 

( M : M+ 1 , I F NT 1 [ N ] = 1 THEN ( PP 1 [M ]: SORT ( SUBST ( LT , PP 1 [ M] )), PRINT (» LP 1 - M PP1[M])))$ 
FOR N: 1 THRU 15 DO L J ' 

(M:M+1,IF NT 1 [ N ] = 1 THEN ( PP 1 [ M ] : SORT( SUBST ( LT , PP 1 [ M ] ) ) , PR I NT ( " LP 1 " , M , PP 1 [ M ] ) ) ) $ 


. RP2 : SUBST ( LT , R L2 ) )$ 

RP2 [ N ] ), PRINT ( "DEP 1 * ,N,RP2[N] ) )$ 


(RL2: [R1KU, DPLO, ATT2 ] 

FOR N : 1 THRU 3 DO ( RP2 [ IM ] : SORT ( 

M : 0$ 

FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT2 [ N ] * 1 THEN ( PP2 [ M ] : SORT ( SUB ST ( LT , PP2 [ M ] ) ) , PR I NT ( " LP2 " M PP2[M])))S 
FOR N; 1 THRU 1 5 DO 1 J ' 

(M:M+1,IF NT2 [ N ] = 1 THEN ( PP2 [ M ] : SORT ( SUBST ( LT , PP2 [ M ] ) ) , PR I NT ( " LP2 - M PP2fMl)))$ 
FOR N: 1 THRU 15 DO L J * 

( M : M+ 1 , I F NT2 [ N ] = 1 THEN ( PP2 [ M J : SORT ( SUBST ( LT , PP2 [ M ] ) ) , PR I NT ( M LP2 " , M , PP2 [ M 3 ) ) ) $ 


(RL3: [R2KW, CIRC, ATT 3 3 

FOR N:1 THRU 3 DO ( RP3[N]:S0RT( 

M : 0$ 


, RP3 : SUBST ( LT , RL3 } )$ 

RR3 [ N 3 ), PRI NT ( "DEP M , N . R P 3 [ N j ) )$ 


FOR N: 1 THRU 15 DO 

( M : M-M , IF NT3[N]»1 THEN ( PP3 [ M ] : SORT ( SUBST ( LT , PP3 [ M ] ) ) , PR I NT ( •• LP3 " M PP3[M])))$ 
FOR N: 1 THRU 15 DO 1 J 

( M : M+ 1 , I F NT3 [ N J = 1 THEN ( PP3 [ M 3 : SORT ( SUBST ( LT , PP3 [ M] ) ) , PR INT< " LP3 " M PP3fM])))S 
FOR N: 1 THRU 15 DO ’ ' 1 J ' 1 

( M : M+ 1 , I F NT3 [ N 3 - 1 THEN ( PP3 [ M ] : SORT ( SUBST ( LT , PP3 [ M 3 ) ) , PR I NT ( " LP3 ,# , M . PP3 [ M ] ) ) ) $ 


(RL4: [ R2KP , CIRC, ATT4 3 

FOR N : 1 THRU 3 DO ( RP4[N3:SORT( 

M : 0$ 


, RP4 : SUBST ( LT , RL4 ) )$ 

RP4 [ N ] ), PRI NT ( "DEP” ,N,RP4[N3 ) )$ 


FOR N : 1 THRU 1 5 DO 
(M:M+1 , IF NT 4 [ N ] = 1 
FOR N: 1 THRU 15 DO 
( M : M+ 1 , IF NT 4 [ N ] = 1 
FOR N: 1 THRU 15 DO 
(M:M+1 , IF NT4[N3=1 
/* 


THEN ( PP4 [ M ] : SORT ( SUBST (LT,PP4[ M3 )) ,PRINT( - LP4 " , M , PP4 [ M j ) ) )$ 

THEN (PP4[M3 : SORT (SUE ST ( LT , PP4 [ M 3 ) ) , PR I NT ( H LP4" ,M,PP4[M])))$ 

THEN (PP4[M3 : SORT ( SUBST( LT,PP4[M] ) ) , PR I NT ( “ LP4 " , M , PP4 [ M ] ) ) ) $ 

b/ . 



Executed on a VAX 8650 provided toy 
Academic Computing Services 
Texas A & M University 

Current date and time Is 23-UAN-1991 08:52:31.18 
$ ! This is a login command procedure template 
$ IF F$M0DE () .EOS. "BATCH" THEN EXIT 
$MAC 

If you logged on to Venus by typing VENUS at the 
ENTER RESOURCE NAME prompt of the port selector, 
do NOT use the BREAK key to get out of Macsyma . 


This is Macsyma 412.61 for DEC VAX 8650 Series Computers. 

Copyright (c) 1982 Massachusetts Institute of Technology. 

All Rights Reserved. 

Enhancements (c) 1982, 1988 Symbolics. Inc. All Rights Reserved. 

Type "DESCRIBE ( TRADE_SECRET ); " to see important legal notices. 

Type "HELP( ) ; " for more information. 

Checking password file: D I SKSPKG 1 : [ MACSYMA_4 1 2 . SYSTEM ] PASSWD-VENUS-4 1 2 . TEXT 
D I SK$PKG 1 : [MACSYMA_4 1 2 . SY ST EM ] macsyma- i n i t . f as ; 4 being loaded. 

Init File Not Found: SYSSUS ERD I SKH :[ HME4905 ] macsyma- i n 1 t . mac 
BATCH ( " RMD . MAC " ) ; 

(Cl) 


( C2 ) /- */ 

/* RMD. MAC: POTENTIAL DEPENDENCIES */ 

/« -/ 

MACSYMA program to generate residual dependencies »»»»*-*-»-»««»./ 

/* -/ 

SHOWTIME: TRUES 
T 1 me= 0 msecs 


(C3 ) 

PX( I , J,K) 

:= [P(I+1 ,U 

.K ),P(I 

, J 

. K ) ]$ 


T ime 

= 20 msecs 






(C4) 

PY( I . J.K) 

: « [P(I ,J 

. K ),P(I 


1 ,K ) ,P( 1 + 1 , J 

,K ) 



P(I+1 , J-1 ,K 

).P(I ,d+1 

, K 

) , P( 1 + 1 , J+1 ,K 

)]$ 

T i me 

= 10 msecs 






(C5 ) 

PZ[0](I,J.K):« [ P ( I ,J 

,K ),P(I 

, J 

, K- 1 ) , P ( I .J 

, K+ 1 ) 



P( 1 + 1 ,U , K 

) . P( I* 1 . J 

, K- 1 

),P(I+1.d . K+ 1 ) ] $ 


T i me= 1 0 msecs 


( C6 ) PHIU(U) 

T i me= 0 msecs 


(C7) PHIl(J) 

T i me= 0 msecs 


( C8 ) CIRC(U) 

T i me= 0 msecs 


: = [ P( ITE , J.KUP ) , P ( ITE . J, KUP+ 1 ) , P( ITE , J.KUP + 2 ) ]$ 
:= [P( ITE , J.KLO) ,P( ITE, J,KLO- 1 ) , P( ITE . J.KLO-2) ]$ 
:= UNION(PHIU(J) , PHIL(j) )$ 


(C9 ) PZ[ 1 ](I . J.K) : = [ P ( I ,J 

.K ) ,P(I 

,J , K+ 1 ) , P ( I 

.J . K+2 ) , 

P( 1+1 , J ,K ) 

.P( 1 + 1 . J 

,K+1 ) ,P( 1 + 1 , J 

, K+2 ) ] $ 

T i me= 0 msecs 




(CIO) PZ[2]( I. J.K) : » [ P ( I .J 

. K ),P(I 

, J , K- 1 ) , P( I 

.J , K-2 ) 

P(I+1,J ,K ), 

,P(I+1.J 

. K- 1 ) . P( 1 + 1 . J 

• K-2) ]$ 


T i me= 10 msecs 


A- 4 



< c 1 1 ) PZ[3](I,d.K):* UNION([P(I ,d,K ).P(I ,d.K-1).P(I .U.K+1). 

P ( I + 1 , J , K ).P(I+1.d.K-1).P(I+1,d,K+1)].CIRC(d))$ 

T 1 me s 0 msecs 


( C 1 2 ) PZ [ 4 ] ( I , d . K ) : » UNION([P(I ,d.K ),P(I ,d.K-1).P(I , d , K+ 1 ) . 

P( 1+1 .d.K ).P(I+1,d,K-1),P(I+1,d, K+ 1 ) ] , CIRC ( J ) ) $ 

T i me= 10 msecs 


(C 1 3 ) FOR N:0 THRU 4 00 ( 

PH [N](I.d.K) := UNI0N(PX( I .d.K) . PY( I .d.K) ,PZ[N](I .d.K) ) . 
PIP[N](I.d.K) := UNI ON ( RH[N](I,d.K), RH[N ] (1-1, d.K)) 
RIM[N](I.d,K) R I P [ N ] ( I - 1 , d.K) )$ 

T i me= 80 msecs 


(C14) RES(I.d.K) : = [ P ( I .J-1.K ).P(I ,d ,K ),P(I .d+I.K ). 

P(I+1.d-1.K ).P(I+1,d , K ).P(I+1. d+I.K ).’ 

P ( I .J ,K-1).P(I ,d .K+1).P(I-1.d-1,K ). 

P( I - 1 , J , K ) , P( I- 1 , d+1 ,K ) ]$ 

T i me* 0 msecs 


(CIS) R IK () :* UNION( R IP [ 1 ] ( I , J , K ) , RIM[ 1 ] ( I , J . K ) , R IP [ 1 ] ( I , J , K+ 1 ) , R IM [ 1 1 ( I J K+l))$ 

T i me* 10 msecs 

(C16) R1KU() :* UN I ON ( R I P [ 2 ] ( I , d , K ) , R I M [ 2 ] ( I , d , K ) , R I P [ 2 ] ( I . d , K - 1 ) . R I M [ 2 1 ( I d K-1))$ 
T ime* 0 msecs ' * 

( C 1 7 ) R2KWO UN I ON ( R I P [ 3 ] ( I . J , K ) , R I M [ 3 ] ( I , d . K ) , R I P [ 3 ] ( I , d . K - 1 ) . R I M [ 3 ] ( I d K-1))$ 

T i me= 0 msecs 

(CIS) R2KPO := UNI0N(RIPC4](I.d.K).RIMt4](I.d.K).RIP[4](I.d.K+1).RIM[4](I d K+1))$ 
T i me= 10 msecs 


( C 1 9 ) FU ( I . J ) : * [P( I , d.K) ,P( I , J.K+1 ) , P( I , J.K + 2) ] 
T 1 me= 0 msecs 


(C20) FXU ( I , d ) : = UNION ( FU ( I . d ) . FU( I - 1 , d ) , FU( I + 1 , d ) ) 
T i me* 0 msecs 


(C21) FYU ( I , d ) : = UNI 0N( FU ( I , d ) , FU ( I . d- 1 ) . FU ( I , J+ 1 ) ) 
T i me= 0 msecs 

(C22) DPU () := UN I ON ( FXU( I , d ) , FYU( I , d ) ) 

T i me* 10 msecs 


( C23 ) FL ( I . J ) : * [ P ( I , J , K ) ,P(I.J t K-1),P(I , J , K-2 ) ] 
Time* 0 msecs 

( C24 ) FXL (I,d):« UNION( FL ( I , d ) . FL ( I - 1 . d ) , FL ( 1+ 1 , d ) ) 
T ime* 0 msecs 

(C2S ) FYL ( I , J ) : = UNI0N(FL(I.d).FL(I.d-1).FL(I.d+l)) 
T 1 me* 10 msecs 


$ 


$ 


$ 


( C26 ) DPLO( ) :« UNION ( FXL ( I , d ) . F YL ( I , J ) ) 

T Ime* 10 msecs 


$ 



(C27) 

ANOFI 1 ( ) 

T i me= 

10 msecs 

( C28 ) 

ANOFI 2 ( ) 

T ime = 

0 msecs 

( C29 ) 

ANOF I 3 ( ) 

T i me = 

0 msecs 

( C30 ) 

ANO F 1 4 ( ) 

T i me = 

10 msecs 


UNIQN( R 1 K , DPU )$ 


UNION ( R 1 KU , DPLO ) $ 


UN I ON ( R2KW , C I RC ) $ 


UNION(R2KP ,CIRC)$ 


(C31) (RJ (I I J,K):«UNION(RIP[0](I,J.K),RIM[0](I,d,K) t RIP[0](I,J-1,K) f RIM[0](I i J-1,K)). 
R JP ( I ,d,K) : =RJ( I , J+1 ,K) 

RK ( I , J,K) : =UNI ON ( RI P [ 0 ] ( I.d,K),RIM[0](I,d.K).RIP[03(I.J,K-1),RIM[0](I,d,K-1)) f 
RKP ( I , J ,K ) : =RK ( I , J , K+ 1 ) 

RTOT ( I , J , K) : =UNION( RES ,RIP,RIM,RJ,RJP,RK. RKP ) )$ 

T ime= 20 msecs 


( C32 ) (RIP: RIP[0](I.J.K), RJ: RJ(I.J.K), R JP : RJP(I.J.K). RES : RESd.d.K), 
RIM: RIM[0](I,J,K), RK : RK(I,d,K), RKP: RKPd.d.K), RTOT: RTOT ( I , J , K ) ) $ 

; Starting garbage collection due to dynamic-0 space overflow. 

; Finished garbage collection due to dynamic-0 space overflow. 

; Starting garbage collection due to dynamic-1 space overflow. 

; Finished garbage collection due to dynamic-1 space overflow. 

Time= 139300 msecs 


( C33 ) /« */ 

( R 1 K : R 1 K (), OPU : DPU () , ATT 1 : AN0FI1())$ 

; Starting garbage collection due to dynamic-0 space overflow. 

: Finished garbage collection due to dynamic-0 space overflow. 

Time= 32320 msecs 


(034) (R1KU: R1KU(), DPLO: DPLO() . ATT 2 : AN0FI2())$ 
T i me= 29230 msecs 


( C35 ) ( R2KW : R2KW( ) . CIRC: CIRC(d). ATT3: AN0FI3())$ 

; Starting garbage collection due to dynamic-1 space overflow. 
; Finished garbage collection due to dynamic-1 space overflow. 
Time = 41350 msecs 


( C36 ) ( R2KP : R2KP(), CIRC: CIRC(d), ATT4 : AN0FI4())$ 

; Starting garbage collection due to dynamic-0 space overflow. 
; Finished garbage collection due to dynamic-0 space overflow. 
Time- 40840 msecs 


( C37 ) /«- 


LT : 

(P( 1-2, J-2.K-3)=P1 ,P( 1-2. J-2.K-1 )-P51 ,P( I-2 f J-2.K+1 )«P101 , P ( I -2 , J-2 , K+3 ) *P 1 5 1 , 
P(I-1 ,J-2,K-3)=P2 , P( I- 1 . d-2,K-1 )=P52, P( I - 1 , d-2 ,K+1 )*P102, P( I- 1 . d-2 ,K + 3)*P 152 , 
P ( I , J-2 » K - 3 ) = P3 ,P(I , J-2.K-1 )=P53,P(I , J-2 . K + 1 ) *P 103 , P ( I . J-2 . K+3 ) =P 1 53 , 

P( 1+1 , J-2.K-3 )=P4 , P( 1+ 1 . J-2.K-1 ) = P54 , P ( I + 1 , J-2 , K+ 1 ) a P 104 , P ( I + 1 , J - 2 , K+3 ) =P 1 54 , 
P( 1 + 2 . J-2.K-3 )=P5 .P(I + 2.d-2.K-1)=P55.P(I + 2 i d-2,K+1)«P105 , P ( I +2 , J-2 , K+3 ) *P 1 55 , 
P( 1-2 . J- 1 , K-3 ) = P6 , P( 1-2, d-1 f K-1 )=P 56,P( I-2,d-1 . K+ 1 ) *P 106 , P ( I -2 . d- 1 ,K + 3)=P156 , 
P(I-1.J-1.K-3)=P7 , P( I- 1 ,d-1 .K- 1 )-P57.P( I- 1 , d- 1 ,K+1 J-P107 , P( I- 1 ,d- 1 ,K+3)«P157, 
P ( I ,d-1.K-3)=P8 ,P(I , d- 1 , K- 1 ) =P58 , P ( I . d- 1 , K+ 1 )»P 108 , P ( I . d - 1 , K + 3 ) «P 1 58 , 

P(I + 1.d-1.K-3)=P9 . P( 1+ 1 , d-1 # K-1 ) = P59 , P( 1+ 1 . d-1 ,K+ 1 )*P 109 . P( 1 + 1 *d- 1 ,K+3 )=P 159 , 
P( 1+2, d-1 ,K-3)*P10.P( 1+2, d-1 ,K-1 )=P60, P( I +2 , d- 1 , K+ 1 ) =P 1 10 , P ( I +2 , d- 1 . K+3 ) =P 1 60 , 
P ( I -2 , d , K-3 ) =P 1 1 ,P(I-2,d , K- 1 ) = P6 1 , P ( I -2 , d , K+ 1 ) =P 1 1 1 , P ( I -2 , J ,K + 3)«P16 1 , 
P( I- 1 . d ,K-3) S P12,P(I-1 ,J , K- 1 ) *P62 , P ( I - 1 ,d , K+ 1 ) *P 1 1 2 , P ( I - 1 , J ,K+3)=P1G2, 

P ( I ,d , K-3 ) *P 1 3 , P ( I .J ,K-1)=P63,P(I ,d , K+ 1 ) ®P 1 1 3 , P ( I .J ,K+3)=P163, 

P( 1+1 , d ,K-3)=P 14 , P( 1+1 , d , K- 1 ) =P64 . P( 1+1 , d , K+1 )=P1 14. P( 1+1 ,d ,K+3 ) a Pl64 , 


A-5 


t 



P(I + 2,d ,K-3)«P15,P( 1+2, J , K- 1 )=P65.P( 1 + 2, 0 , K+ 1 ) =P 1 1 5 , P ( 1 + 2 . 0 ,K+3)=P1S5, 

P(I-2.0+1.K-3)=P16.P(I-2.0+1,K-1 ) =P66 ,P(I-2.0+1,K+1)*P116,P(I-2,0+1 , K+3 ) = p 166 ’ 
P( I- 1 ,0+1 ,K-3)*P17,P( I- 1 ,0+1 ,K-1 )*P67,P( 1-1 ,0+1 ,K+ 1 )*P 1 17,P( 1-1 ,0+1 ,K+3)*P167! 

P(I , J+ 1 , K-3 ) -P 1 8 . P ( I ,0+I.K-l )=P68.P(I .0+1 , K+ 1 )-P1 18 , P( I , 0+ 1 , K+3 ) = P 1 68 ! 
P(I+1.0+1.K-3)*P19.P(I+1,0+1,K-1) =P69 . P( 1+ 1 . 0+ 1 , K+ 1 ) *P 1 1 9 , P( I + 1 , 0+ 1 . K+3 ) *P 169 ' 
P( 1 + 2, 0+1 ,K-3)=P20, P( 1 + 2, 0+1 ,K-1 ) *P 70 , P ( 1+2, 0+1 , K+ 1 ) = P 1 20 ,P( 1 + 2. 0+1 ,K+3)=P 170 
P( 1-2 .0+2. K-3)* P2 1 ,P( 1-2 . J+2.K-1 )*P71 ,P( I-2.0+2.K+1 )*P121 ,P( I -2 . 0+2 . K+3 ) *p 1 7 1 ' 
P ( I - 1 ,0+2,K-3)=P22,P( 1-1 . J+2.K-1 )=P7 2,P( 1-1 .0 + 2.K+1 ) =P 1 22 . P ( I - 1 . 0+2 . K+3 ) =P 1 72 ! 
P(I , 0+2 ,K-3) =P23 , P( I .0+2, K-1 )=P73,P( I , 0+2 . K+ 1 ) =P 1 23 . P ( I , 0+2 , K+3 ) = P 1 73 
P( 1 + 1 , 0+2 ,K-3) = P24,P( 1 + 1 , 0+2, K-1 )=P74 , P ( I + 1 , 0+2 , K+ 1 ) =P 1 24 , P ( I + 1 . 0+2 , K+3 ) = P 1 74 ’ 
P( 1 + 2, 0+2.K-3 ) = P25 , P( 1 + 2. 0 + 2, K-1 )=P75,P(I+2,0 + 2,K+1 ) = P 1 25 . P ( I +2 . 0+2 . K+3 ) * P 1 75 ’ 

P(I-2,0-2,K-2)=P26.P(I-2,U-2,K)*P76,P(I-2,0-2,K+2)*P126,P(ITE,0-1,KLO-2)=P176 
P(I-1 .0-2.K-2)*P27.P(I-1 ,0-2,K)*P77,P(I-1 ,0-2.K+2)=P127.P(ITE.0-1 .KL0-1 )=P177' 
P ( I ,0-2.K-2)=P28,P(I ,0-2.K)*P78.P(I , J-2 . K+ 2 ) = P 1 28 , P ( I TE . 0- 1 , KLO )*P17a! 

P( 1 + 1 . 0-2 ,K-2) = P29 ,P(I + 1,0-2,K)*P79,P(I + 1,0-2,K+2)=P129,P(ITE,0-1 ,KUP ) =P 1 79 ’ 
P( I+2,0-2,K-2)*P30,P(I+2,0-2,K)=P80,P(I+2,0-2.K+2)*P130,P(ITE,0-1,KUP+1)=P1 80 ' 
P(I-2.0-1 ,K-2)=P31 ,P( I -2, 0-1 . K ) = P8 1 ,P(I-2.0-1 ,K + 2)=P131 . P ( I TE , 0- 1 . KUP+2 ) = P 1 8 1 ’ 
P( I -1,0-1 ,K-2)*P32,P( 1-1,0- 1,K)*P82.P( 1-1 .0-1 , K+2 )=P 132 . P( ITE . 0 . KLO- 2 ) = P 1 8 2 ' 

P(I , 0- 1 . K-2 )=P33 , P( I .0-1 ,K)»P83,P(X . 0- 1 . K+2 ) =P 1 33 , P( ITE , 0 , KLO- 1 ) = P 1 8 3 ' 

P(I + 1 .0-1 ,K-2)*P34.P( 1+1 .0-1 ,K)*P84.P(I + 1 ,0-1 . K+2 ) *P 1 34 , P ( ITE , 0 .KLO ) = P184 - 
P( I +2. 0-1 ,K-2)*P35,P(I+2.0-1 . K ) =P85 , P ( 1 + 2 , 0- 1 . K + 2 ) =P 1 35 . P ( I TE . 0 ,KUP )=P18s’ 
P ( I -2 . 0 , K- 2 ) =P36 , P ( I -2 , 0 . K ) -P86 , P( I -2 . 0 . K+2 ) *P 1 36 . P ( ITE . 0 , KUP+ 1 ) =P 1 86 ’ 

P(I-1,0 ,K-2)*P37,P(I-1 ,0 , K ) =P87 , P ( I - 1 , 0 , K + 2 ) = P 1 37 . P ( I TE . 0 . KUP+2 ) = P 1 8 7 ' 

P(I .0 . K-2 ) = P38 , P ( I ,0 , K ) *P88 , P ( I ,0 , K+2 ) = P 1 38 . P ( ITE . 0+ 1 . KLO- 2 ) * P 1 88 ] 

P(I+1.0 , K-2 ) =P39 , P ( I + 1 , U ,K)*P89.P(I+1 , J . K+2 ) =P 1 39 , P( ITE , 0+ 1 . KLO- 1 ) =P 1 89 

P ( 1+2 . 0 ,K-2)=P40.P(I+2.U ,K)*P90.P( 1+2.0 , K+2 ) =P 1 40 . P ( I TE . 0+ 1 , KLO )=P 19 o' 

P(I-2.0+1.K-2)*P41,P(I-2.0+1,K)*P91,P(I-2,0+1 . K+2 ) -P 1 4 1 , P ( I TE . 0+ 1 . KUP )*P19 1 ’ 
P( I -1.0+1 ,K-2)*P42.P( 1-1 .0+1 ,K)*P92.P( 1-1 ,0+1 . K+2 ) =P 142 , P( ITE , 0+ 1 . KUP+ 1 ) =P 1 92 ’ 
P(I .0+1 ,K-2)=P43,P(I ,0+1 ,K)«P93.P(I . 0+ 1 , K+2 ) *P 1 43 . P( ITE . 0+ 1 . KUP+2 ) =P 1 93 ' 

P( 1 + 1 . 0+1 , K-2 ) =P44 , P( 1 + 1 , 0+ 1 , K )=P94 , P ( I + 1 , 0+ 1 , K+2 ) = P 1 44 . 

P( 1 + 2 . 0+1 . K-2 ) =P45 , P ( I + 2 , 0+ 1 , K ) =P95 , P ( I +2 , J+ 1 , K+2 ) = P 1 4 5 ’ 

P( 1-2 .0+2, K-2 ) = P46 . P( 1-2. 0+2 . K ) =P96 , P( I -2 , 0+2 , K+2 ) =P 146, 

P ( I - 1 . 0+2, K-2 ) = P47 , P( I - 1 , 0+2 ,K ) >P97 , P ( I - 1 , 0 + 2 , K + 2 ) =P147 , 

P ( I ,0+2.K-2) = P48,P( I , 0 + 2 , K ) *P98 , P ( I , 0+2 , K + 2 ) * P 1 48 , 

P( 1+1 , 0+2 , K-2 ) =P49 , P( 1+1 , 0+2 , K ) *P99 , P ( I* 1 . 0+2 , K+2 ) =P 1 49 ’ 

P( 1+2, 0+2, K-2 )=P50. P( I +2 , 0+2 , K ) *P 100 , P ( I + 1 , 0+2 . K+2 ) =P 150]$ 

Time* 880 msecs 


( C38 ) 

(NI 

: [I 


1-1 t 

I -2 , 

I 

1-1 , 

1-2,1 


1-1. 1-2,1 ,1-1,1 

-2,1 . I- 1 , 

Nd 

[ d 

. J 

J 

, J- 

1 , d- 

1 . d- 

1 , J 

, d 

, J 

, 1 , d+ 1 , J+ 1 , J 

.0 .0 ]. 

NK 

[K 

, K 

K 

, K 

. K 

. K 

, K- 

1 , K- 1 

, K - 

1 , K , K , K , K^*1 

. K+1 ,K+1 ] . 

NTO 

[1 

, 1 

1 

. 1 

, 1 

, 1 

, 1 

, 1 

1 

.1 .1 .1 ,1 

, i ,i j , 

NT 1 

[1 

, 1 , 

, 1 

.0 

,0 

.0 

,0 

,0 

.0 

.0 ,0 ,0 ,1 

. i ,i ] . 

NT 2 

[1 

, 1 , 

. 1 

.0 

,0 

,0 

, 1 

. 1 

, 1 

,0 ,0 .0 .0 

.0 .0 ]. 

NT3 

[ 1 

. 1 . 

, 1 

,0 

,0 

,0 

, 1 

, 1 

, 1 

,0 ,0 ,0 .0 

.0 .0 ], 

NT 4 

[ 1 

. 1 

, 1 

.0 

,0 

,0 

,0 

,0 

.0 

.0 ,0 ,0 ,1 

. i ,i ] )$ 


I i me* 70 msecs 


( C39 ) (M : 0, 

FOR N : 1 THRU 15 00 ( M : M+ 1 , I F NT0[N] = 1 THEN PPO[M]: PX ( NI [ N ] . NO [ N ] . NK [ N ] ) ) . 

FOR N : 1 THRU 15 DO (M:M+1.IF NT0[N]=1 THEN PP0(M] : PY ( NI [ N ] , NO [N ] , NK [ N ] ) ) 

FOR N:1 THRU 15 DO (M:M+1,IF NT0[N]*1 THEN PP0[M]: PZ [ 0 ] ( NI [ N ] , NO [N ] . NK [ N ] ) ) j $ 

Time* 1550 msecs 


(C40) (M : 0. 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT1[N]=1 THEN PP1[M]: PX ( NI [N ] . NO [ N ] , NK [ N ] ) ) 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT 1 [ N ] = 1 THEN PP1[M]: PY (NI[N].NU[N] NK [ N ] ) ) ' 

FOR N : 1 THRU 15 DO (M:M+1,IF NT1[N] = 1 THEN PP 1 [M] : PZ [ 1 ] ( N I [ N ] , NO [ N ] . NK [ N ] ) ) ) $ 

7 i me* 890 msecs 


(C41) (M : O. 

FOR N : 1 THRU 15 DO (M.M+1.IF NT2[N] = 1 THEN PP2[M]: PX ( N I [ N ] , NO [ N ] . NK [ N ] ) ) 

FOR N : 1 THRU 15 DO (M:M+1,IF NT2[N]=1 THEN PP2[M]: PY ( NI [ N ] . NO [ N ] . NK [ N ] ) ) 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT2[N]=1 THEN PP2[M]: P Z [ 2 ] ( NI [N ] , NO [N ] , NK f N ] ) ) ) $ 

Time* 920 msecs ' 


( C42 ) (M : 0. 

FOR N : 1 THRU 15 DO (M:M+1,IF NT3[N] = 1 THEN PP3[M]: PX ( N I [ N ] ,NU[N] , NK [ N ] ) ) 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F NT3[N]*1 THEN PP3[M]: PY ( NI [ N] , NU[N] , NK[N ] ) ) ! 

FOR N : 1 THRU 15 DO (M:M+1,IF NT3[N]*1 THEN PP3[M]: P Z [ 3 ] ( NI [N ] . NO [ N ] . NK [ N ] ) ) j $ 

T 1me = 63 10 msecs 



(C43) (M : 0, 

FOR N : 1 THRU 15 DO (M:M+1,IF NT4[N]=1 THEN PP4[M]: PX (NI [N] , NJ[N] , NK[N] ) ) , 

FOR N : 1 THRU 15 DO (M:M+1,IF NT4[N]=1 THEN PP4[M]: PY ( N I [ N ] . N J [ N j , NK [ N 3 ) ) , 

FOR N : 1 THRU 15 DO (M:M+1,IF NT4[N]«1 THEN PP4[M]: P 2 [ 4 ] ( N I [ N ] , N J [ N ] , NK [ N ] ) ) ) $ 

Time = 6410 msecs 


( C44 ) /- / 

( RLO : [RES. RIP, RIM, RJ, RK , RJP, RKP , RTOT ] , RPO : SUB ST ( LT , R LO ) )$ 

T ime= 14730 msecs 

(C45) FOR N : 1 THRU 8 DO ( RPO[N]:SORT( RPO[N] ). PR I NT ( " D E P " , N , RPO [ N ] ) )$ 

DEP 1 [PI 13. P63 , P82 , P83, P84 , P87, P88, P89, P92, P93, P94 ] 

DEP 2 [ P 1 1 2 , P 1 1 3 , P 1 1 4 , P62, P63 , P64. P32, P83 . P84, P87, P88, P89, P92 , P93, 

P 94 ] 

DEP 3 [Pill, P 1 1 2 , P 1 1 3 , P6 1 , P62 , P63, P8 1 . P82, P83, P86 . P87, P88 , P9 1 , P92, 

P93 ] 

DEP 4 [ P 106 , P 1 07 , P 1 08 , P109. Pill, P112, P113, P114, P56, P57, P58 , P59, P6 1 , 

P62 , P63 , P64 , P76 , P77 , P78, P79, P81, P82, P83, P84, P86 , P87, P88 , P89 , P9 1 , 

P92 , P93 , P94 ] 

DEP 5 [Pill, P 1 1 2 , P 1 1 3 , P 1 1 4 , P36 , P37, P38 , P39 , P56 , P57, P58 , P59, P6 1 , 

P6 2 , P63, P64 , P66. P67 , P68 , P69 . P81, P82, P83, P84, P86, P87, P88 , P89 , P9 1 , 

P92 , P93 , P94 ] 

DEP 6 [Pill, P 1 1 2 , P 1 1 3 , P 1 1 4 , P 1 16 , P 1 1 7 , P118, P 1 1 9 , P6 1 , P62, P63, P64, P66, 

P67 , P68 , P69 , P8 1 , P82, P83, P84 , P86 , P87, P88 , P89, P9 1 , P92 , P93, P94, P96, 

P97 , P98 , P99 ] 

DEP 7 [ P 1 06 , P 107 , P 1 08 , P109, Pill, P 1 1 2 , P113, P114, P116, P 1 1 7 , P 1 1 8 . P 1 1 3 , 

P 1 36 , P 1 37 , P 1 38 , P 1 39 , P6 1 . P62 , P63, P64 , P8 1 , P82 , P83, P84, P86 , P87 , P88 , 

P89 , P9 1 , P92 , P93 , P94] 

DEP 8 [ P 106 , P 1 07 , P 1 08 , P109, Pill, P112, P 1 1 3 , P114, P116, P117, P118, P119, 

P 1 36 . P 1 37 , P 1 38 , P 1 39 , P36, P37, P38, P39, P56, P57, P58, P59, P61, P62, P63, 

P64, P66 , P6 7 , P68 , P69 , P76, P77, P78 , P79 , P81, P82, P83. P84, P86, P87, P88 , 

P89 , P91, P92 , P93 , P94, P96 , P97 , P98 . P99] 

T 1 me= 1 320 msecs 

( C46 ) M : 0$ 

T i me = 10 msecs 

( C47 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT 0 [ N ] = 1 THEN ( PPO [ M ] : SORT ( SUBST ( LT , PPO [ M ] ) ) , PR I NT ( " LPO " , M . PP0[ M ] ) ) ) $ 

LPO 1 [ P88 , P89 ] 

LPO 2 [ P87 , P88 ] 

LPO 3 [ P86 , P87 ] 

LPO 4 [ P83 , P84 ] 

LPO 5 [ P82 , P83 ] 

; Starting garbage collection due to dynamic-1 space overflow. 

; Finished garbage collection due to dynamic-1 space overflow. 

A- 6 


LPO 6 [P81 , P82] 



LPO 7 [P 63, P64] 

LPO 8 [P62. P63] 

LPO 9 [ P6 1 , P62 ] 

LPO 10 [ P93 , P94 ] 

LPO 11 [P92, P93 ] 

LPO 12 [P91 , P92 ] 

LPO 13 [PI 13, PI 14] 

LPO 14 [PI 12, P 1 1 3 ] 

LPO 15 [Pill, PI 12] 

Time* 7890 msecs 

(C48 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , IF NTO [ N ] = 1 THEN ( PPO [ M ] : SORT ( SUBST ( LT , PPO [ M ] ) ) , PR INT ( •' LPO " . M , PPO[ M ] ) ) ) $ 


LPO 

16 

[ P83 . 

P84 , 

P88 , 

P89 , 

P93 

, P94 ] 


LPO 

17 

[P82. 

P83 , 

P87 , 

P88 , 

P92 , 

, P93 ] 


LPO 

18 

[P81 . 

P82 , 

P86 , 

P87 , 

P91 , 

, P92 ] 


LPO 

19 

[ P78 . 

P79 , 

P83 , 

P84 , 

P88 , 

, P89 ] 


LPO 

20 

[P77 , 

P78 , 

P82 , 

P83 , 

P87 , 

P88 ] 


LPO 

2 1 

[P76, 

P 77, 

P8 1 . 

P82 , 

P86 , 

P87 ] 


LPO 

22 

[ P58 . 

P59 , 

P63 , 

P64 , 

P68 , 

P69 ] 


LPO 

23 

[ P57 , 

P58 , 

P62 , 

P63 . 

P67, 

P68 ] 


LPO 

24 

[P56, 

P57 , 

P6 1 , 

P62 , 

P66 , 

P67] 


LPO 

25 

[P88 , 

P89 , 

P93 , 

P94 , 

P98 , 

P99 ] 


LPO 

26 

[ P87 , 

P88 , 

P92 , 

P93 , 

P97 , 

P98 ] 


LPO 

27 

[ P86 , 

P87 . 

P9 1 . 

P92 , 

P96 , 

P97 ] 


LPO 

28 

[ P 108 , 

PI 09 

, P 1 

13, P 

114, 

PI 18. 

PI 19] 

LPO 

29 

[P107. 

P 1 08 

, PI 12, PI 13, 

P 1 17 , 

PI 18] 

LPO 

30 

[ P 106 , 

P 107 

, Pill, PI 12, 

PI 16, 

PI 17] 


Time* 7730 msecs 

(C49) FOR N: 1 THRU 15 DO 

(M : M+ 1 , I F NTO [N ] = 1 THEN ( PP0[M] : SORT ( SU8ST ( LT , PP0[M] ) ) , PR INT ( ‘'LPO” , M . PPO [ M ] ) ) ) $ 
LPO 31 [PI 13, P 1 1 4 , P63, P64 , P88 , P89] 

LPO 32 [PI 12, P 1 1 3 , P62, P63, P87, P88] 

LPO 33 [Pill, P 1 1 2 , P61, P62 , P86 , P87] 

LPO 34 [ P 108 , P 1 09 , P58 , P59, P83, P84 ] 

LPO 35 [ P 107 , P 1 08 , P57 , P53, P82, P83] 

LPO 36 [ P 106 , P 107 , P56 , P57, P81, P82] 

LPO 37 [P38. P39 , P63, P64, P88 , P89] 

LPO 38 [ P37 . P38 , P62 , P63 . P87, P 88] 

LPO 39 [ P36 , P37 , P6 1 , P62 , P86 , P87] 

LPO 40 [PI 18, P 1 1 9 , P68 , P69, P93, P94] 

LPO 4 1 [PI 17, P 1 1 8 , P67 , P68 , P92 , P93] 



LPO 42 [PI 16, P 1 1 7 , P66, P67 , P 91, P92] 


LPO 

43 

[PI 13. 

PI 14, 

P 138 . 

PI 39, 

P88 , 

P89 ] 

LPO 

44 

[PI 12. 

PI 13, 

P 1 37 , 

P 138 , 

P87 , P88 ] 

LPO 

45 

[Pill. 

PI 12, 

P 1 36 , 

P 1 3 7 , 

P86 , 

P87] 


T i me= 7070 msecs 

( C50 ) ( R L 1 : [ R 1 K , DPU , ATT 1 ] , RP 1 : SUBST ( LT , RL 1 ) )$ 

T i me= 5620 msecs 

( C 5 1 ) FOR N : 1 THRU 3 DO ( RP1[N]:S0RT( RPl[N] ), PR INT ( "DEP M . N , RP 1 [ N ] ) )$ 

DEP 1 [ P 106 , P 1 07 , P 1 08 , P 1 09 , Pill. P112, P113, P114, P116, P117, P118, P119. 
P136, P 1 37 , P 1 38 , P 1 39 , P161, P162, P163. P164, P81, P82, P83, P84 , P86, P87, 

P88 , P89 , P91, P92 , P93 . P94] 

DEP 2 [ P 108 , P 1 1 2 . P 1 1 3 , P 1 1 4 , P 1 1 8 . P133, P137, P138, P139, P143, P83. P87, 

P88 , P89 , P93 ] 

DEP 3 [ P 1 06 , P 107 , P 1 08 , P109, Pill, P112. P 1 1 3 , P114, P116, P117, P118, P119, 

p 1 33 , p 1 36 , P 1 37 , P 1 38 , P139, P143, P161, P162, P163 f P164, P81. P82. P83, P84, 

P86 , P87 , P88 , P89 , P91, P92, P93, P94] 

T i me= 5 10 msecs 

( C52 ) M : 0$ 

T i me= 0 msecs 

( C53 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT1[N]=1 THEN ( PP 1 [ M ] : SORT ( SUB ST ( LT , PP 1 [ M ] ) ) . PR INT ( - LP 1 " , M , PP 1 [ M ] ) ) ) $ 

LP 1 1 [ P88 , P89 ] 

LP 1 2 [ P87 , P88 ] 

LP 1 3 [ P86 , P87 ] 

LP 1 13 [ P 1 13 . P 1 1 4 ] 

LP 1 14 [PI 12, P 1 1 3 ] 

LP 1 15 [Pill. PI 12] 

Time= 1410 msecs 

( C54 ) FOR N: 1 THRU 15 00 

(M:M+1,IF NT 1 [ N ] = 1 THEN ( PP 1 [ M ] : SORT ( SUB ST ( LT , PP 1 [ M ] ) ) . PR INT ( “ LP 1 " . M , PP 1 [ M ] ) ) ) $ 


LP 1 

16 

[P83. P84 , 

P88 , 

P89 

. P93 , 

. P94] 


LP 1 

17 

[P82. P83 , 

P87 , 

P88 

, P92 , 

. P93 ] 


LP 1 

18 

[P81, P82 , 

P86 , 

P87 , P91, 

. P92 ] 


LP 1 

28 

[ P 108 , P 1 09 

. P 1 13 . 

PI 14, 

P 1 18 , 

PI 19] 

LP 1 

29 

[ P 107 , P 1 08 

. P 1 12 . 

P 1 13 . 

PI 17, 

PI 18] 

LP 1 

30 

[ P 106 . P 107 , Pill. 

PI 12, 

P 1 16 , 

PI 17] 


Time= 2860 msecs 
( C55 ) FOR N: 1 THRU 15 DO 

(M:M+1 f IF NT 1 [ N ] = 1 THEN ( PP 1 [ M ] : SORT ( SUB ST ( LT , PP 1 [ M ] ) ) , PR I NT ( " LP 1 “ . M , PP 1 [ M ] ) ) ) $ 
LP 1 31 [PI 13, P 1 1 4 , P 1 38 , P 1 39 , P83 . P89] 

LP 1 32 [PI 12, P 1 1 3 , P 1 37 , P138, P87, P88] 
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LP1 33 [Pill, P 1 1 2 , P 1 36 , P 1 37 , P86, P87] 

LP 1 43 [PI 13. P 1 1 4 , P 1 38 , P139, P163, P164] 

LP 1 44 [PI 12, P 1 1 3 , P 1 37 , P 1 38 , P162, P163] 

LP 1 45 [Pill, P 1 1 2 , P 1 36 , P 1 37 , P 1 6 1 , P162] 

Time 3 2990 msecs 

(C56) (RL2: [R1KU, DPLO, ATT2 ] . RP2 : SUBST ( LT . RL2 ) )$ 

Time 2 5460 msecs 

(C57) FOR N : 1 THRU 3 DO ( RP2[N]:S0RT( RP2[N] ), PR I NT ( "DEP " , N , RP2 [ N ] ) )$ 

OEP 1 ( P 1 1 , P 1 2 , P 1 3 , P 1 4 , P36 , P37 , P38, P39. P56, P57, P58 , P59. P6 1 . P62, 

P63. P64. P66 , P67 , P68 , P69 , P8 1 , P82, P83, P84, P86, P 87, P 88. P89, P9 1 , P92, 

P93, P94 ] 

DEP 2 [ P33 , P37, P38, P39, P43, P58 , P62, P63. P64, P68, P83, P 87, P88 , P89, 

P93 ] 

OEP 3 [ P 1 1 . P 1 2 , P 1 3 . P 1 4 , P33 , P36 , P37, P38. P39 , P43, P56, P57, P58, P59. 

P61, P62 . P63 . P64, P66, P67, P68 , P69 , P81, P82, P83, P84, P86, P87, P88 , P89, 

P91, P92 , P93 , P94 ] 

Time 55 500 msecs 

( C58 ) M : 0$ 

T i me= 0 msecs 

( C59 ) FOR N: 1 THRU 15 00 

( M : M+ 1 , I F NT 2 [N j = 1 THEN ( PP2 [ M ] ; SORT ( SUBST ( LT t PP2 [ M ] ) ) , PR I NT ( 11 LP2 " , M , PP2 { M ] ) ) ) $ 

LP2 1 [ P88 , P89 ] 

LP2 2 [P87, P88 ] 

LP2 3 [ P86 , P87 ] 

LP2 7 [P63, P64] 

LP2 8 [ P62 , P63J 

LP2 9 [P61 . P6 2 3 
Time = 1320 msecs 

( C60 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT2 [ N ] = 1 THEN ( PP2 [ M ]: SORT ( SUBST ( LT , PP2 [ M ])), PR INT (" LP2 “ . M . PP2 [ M ]))) $ 

LP2 16 [P83, P84 , P88 , P89, P93, P94] 

LP2 17 [ P82 , P83 , P87, P88 , P92, P93] 

LP2 18 [ P8 1 , P8 2 , P86 , P87, P9 1 , P92] 

LP2 22 [ P58 , P59 , P63, P64, P68 , P69 ] 

LP2 23 [ P57 , P58 , P62, P63, P67 , P68] 

LP2 24 [ P56 , P57 , P6 1 , P62 . P66, P67] 

Time 2 3150 msecs 

( C6 1 ) FOR N : 1 THRU 1 5 DO 

( M : M+ 1 , I F NT 2 [ N ] = 1 THEN ( PP2 [ M ] : SORT ( SU8ST( LT , PP2 [ M ] ) ) , PR INT ( " LP2 " , M , PP2 [ M ] ) ) ) $ 

LP2 31 [ P38 , P39 , P63 , P64, P88 , P89] 

LP2 32 [ P37 , P38 , P62, P63, P87 t P 88] 



LP2 

33 

[ P36 

, P37 , PS 1 , 

P62 . 

P86 , 

P87 ] 

LP2 

37 

[ P 1 3 

, P 1 4 , P38 , 

P39, 

P63 , 

P64 ] 

LP2 

38 

[ P 1 2 

. P 1 3 , P37 , 

P 38 . 

P62 , 

P63] 

LP2 
T ime 

39 

= 

[PI 1 
2950 i 

, P 1 2 , P36 , 
msecs 

P 37 , 

P61 , 

P62 ] 


( C62 ) (RL3: [ R2KW , CIRC, ATT3 ] , RP3 : SUB ST ( IT , R L3 ) )$ 

; Starting garbage collection due to dynamic-0 space overflow. 

; Finished garbage collection due to dynamic-0 space overflow. 

T i me= 9 1 40 msecs 


( C63 ) 

FOR 

N: 1 

THRU 

3 DO 

( RP3 [ N ] 

: SORT ( 

RP3 [ N ] 

), PR INT ( - 

DEP" , N , RP3 [ N ] ) )$ 

DEP 1 

[Pill, 

PI 12, 

P 1 13 , 

P 1 1 4 , P 1 82 , P 1 8 3 , P 1 84 , 

P 1 85 , 

P 1 86 , P 1 87 

, P36 , P3 7 , 

P 38 . 

P39 , 

P56 

. P57 , P58 , 

P59, PS 1 , 

, P62 , 

PS3 . P64, 

P66, 

P67 , P68 , 

P69 , P81, P8 2 , 

P83 , 

P84 , 

P86 

, P87 , 

P88 , 

P89 , P91, 

P92 , 

P93. P94 ] 





DEP 2 [ P 1 82 , P i 83 , P184, P185, P186, P187] 

DEP 3 [Pill, P 1 1 2 , P 1 1 3 , P 1 1 4 , P 1 82 , P183, P184, P185, P186, P187, P36, P37, 

P38 , P39, P56, P57 , P58, P59, P6 1 , P62 , P63, P64, P66, P67, P68 , P69 , P8 1 , P82, 

P83 , P84 , P86 , P87 , P88, P89 , P91, P92, P93, P94] 

T i me = 530 msecs 


( C64 ) M : 0$ 

T i me = 0 msecs 

( CSS ) FOR N: 1 THRU 15 00 

(M:M+1,IF NT3[N] = 1 THEN ( PP 3 [ M ] : SORT ( SUB ST ( LT , PP3 [ M ] ) ) , PR I NT ( ■' LP3 " . M , PP3 [ M ] ) ) ) $ 

LP3 1 [P88, P89 ] 

LP3 2 [ P87 , P88 ] 

LP3 3 [ P86 , P87J 

LP3 7 [ P63 , P64 ] 

LP3 8 [ P62 , P63 ] 

LP3 9 [P61 . P62 ] 

T i me= 1 300 msecs 

( C66 ) FOR N : 1 THRU 15 DO 

(M:M+1.IF NT 3 [ N ] = 1 THEN ( PP3 [ M ] : SORT ( SUBST ( LT , P P3 [ M ] ) ) , PR INT ( " LP3 » . M . PP3 [ M ] ) ) ) $ 


LP3 

16 

[ P83 . 

P84 , 

P88 , 

P89 , 

P93 , 

P94 ] 

LP3 

17 

[ P82 , 

P83 , 

P87 . 

P88 , 

P92 , 

P93 ] 

LP3 

18 

[P81 . 

P82 , 

P86 , 

P 8 7 , 

P9 1 , 

P92 ] 

LP3 

22 

[ P58 . 

P59 , 

P63 , 

P 64 , 

PS8 , 

P69 ] 

LP3 

23 

[ P57 , 

P58 , 

PS 2 , 

P63 , 

P67 , 

P63 ] 

LP3 

24 

[ P56 , 

P57, 

PS 1 , 

P62 . 

P66 , 

P67 ] 


T i me= 3030 msecs 

(C67) FOR N: 1 THRU 15 DO 

(M : M+ 1 , IF NT3[N] = 1 THEN ( PP3 [ M ] : SORT ( SU8ST ( LT , PP3 [ M ])), PRINT (" LP3 ", M . PP3 [ M] )) )$ 


LP3 

31 

[PI 13, 

P 1 14 , 

P 1 82 , 

P 1 83 , 

P 184 , 

P 185 . 

P 1 86 , 

P 1 87 , 

P63 , 

P64 , 

P88 , 

P89 ] 

LP3 

32 

[PI 12. 

PI 13, 

P 1 82 , 

P 1 83 , 

P 184 , 

P 185 , 

P 186 , 

P 1 87 , 

P62 , 

P63 , 

P87 . 

P 88 ] 
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LP3 

33 

[pm. 

PI 12, 

P 1 82 , 

P 183 , 

P 1 84 , 

P 1 85 , 

P 186 

, P 1 8 7 , P61 

, P6 2 , P86, P87] 

LP3 

37 

[ P 1 82 , 

P 183 . 

P 1 84 , 

P 185 , 

P 1 86 , 

P 1 8 7 , 

P38 , 

P 39 , 

P63, 

P64 , 

P88 , P89 ] 

LP3 

38 

[P182. 

P 1 83 . 

P 1 84 , 

P 1 85 , 

P 1 86 , 

P 1 87 , 

P 37 , 

P38 , 

P62 . 

P63 , 

P87 „ P88] 

LP3 
T ime 

39 [ P 1 82 , P 1 83 , 
= 5260 msecs 

P 184 , 

P 1 85 , 

P 1 86 . 

P 187 , 

P 36 . 

P37 , 

P61 , 

P62 , 

P86 , P87 ] 


(C68) (RL4: [ R2KP , CIRC. ATT4] , RP4 : SUBST ( LT , R L4 ) )$ 

T i me* 5 1 80 msecs 

(C69) FOR N : 1 THRU 3 DO ( RP4 [ N ] : SORT ( RP4[N] ). PRINT ( "DEP" , N , R P 4 [ N ] ) )$ 

OEP 1 [P106, P107, P 1 08 , P109. Pill, P 1 1 2 , P 1 1 3 , P114, P116, P117, P118, P119, 

P136, P137. P 1 38 , P139, P182. P183, P184, P185, P186. P187. P6 1 . P62, P63, P64. 

P81, P82 . P83 , P84 , P86, P87, P88 . P89 , P91, P92, P93, P94] 

DEP 2 [ P 1 82 , P 1 8 3 , P184, P185, P186. P 1 8 7 ] 

DEP 3 [P106, P 1 07 , P 108 , P109. Pill, P112, P113, P114, P116, P117, P118, P119. 

P136, P137, P 1 38 , P 1 39 , P182, P183, P184, P185, P186, P187, P6 1 , P62, P63, P64, 

P8 1 , P82, P83 , P84, P86, P87, P88 , P89 , P91, P92, P93, P94 ] 

Time* 470 msecs 

( C70 ) M : 0$ 

Time* 10 msecs 

( C7 1 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT4 [ N ] * 1 THEN ( PP 4 [ M ] : SORT ( SUB S T ( L T . PP4 [ M ] ) ) , PR I NT ( " LP4 " . M , PP4 [ M ] ) ) ) $ 

LP4 1 [ P88 , P89 3 

LP4 2 [P87, P88 ] 

LP4 3 [P86, P87 ] 

LP4 13 [P 1 13 . P 1 14] 

LP4 14 [PI 12. PI 13] 

LP4 15 [Pill, P 1 1 2 ] 

T i me* 1 330 msecs 

( C72 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT4 [ N ] * 1 THEN ( PP4 [ M ] : SORT ( SUBS T ( LT , PP4 [ M ] ) ) , PR I NT ( " LP4 " , M , PP4 [ M ] ) ) ) $ 

LP4 16 [P83, P84, P38. P89, P93, P94] 

LP4 17 [ P82 , P83 , P87 . P88 , P92, P93] 

LP4 18 [P81, P82 , P86, P87, P9 1 , P92] 

LP4 28 [ P 108 . P 109 . P 1 1 3 . P114, P 1 1 8 , P119] 

LP4 29 [PI 07 , P 1 08 , P112, P113, P117, P118] 

LP4 30 [ P 106 , P 107 , Pill, P 1 1 2 . P116, P117] 

Time* 3030 msecs 

( C73 ) FOR N: 1 THRU 15 DO 

( M : M+ 1 , I F NT4[N]=1 THEN ( PP4 [ M ]: SORT ( SUBST ( LT , PP4 [ M ])), PR INT (“ LP4 ” . M , PP4 [ M ]))) $ 


LP4 

31 

[PI 13, 

P 1 14 , 

P 1 82 , 

P 1 83 , 

P 1 84 , 

P 1 85 , 

P 1 86 , 

P 1 87 , 

P63, 

P64 , 

P88 , 

P89 ] 

LP4 

32 

[ P 1 1 2 , 

PI 13, 

P 1 82 , 

P 1 83 , 

P 1 84 , 

P 1 85 . 

P 1 86 , 

P 1 87 , P62 , 

P63 , 

P87 , 

P88 ] 

LP4 

33 

[Pill, 

PI 12. 

P 1 82 , 

P 1 83 , 

P 1 84 , 

P 1 85 , 

P 186 , 

P 187 , 

P61 . 

P62 , 

P86 , 

P87 ] 



LP4 

43 

[PI 13, 

PI 14, 

P 1 38 , 

P 1 39 , 

P 1 82 . 

P 1 8 3 , 

P 184 , 

P 1 85 , 

P 186 , 

P 1 87 , 

P88 , 

P89] 

LP4 

44 

[PI 12, 

PI 13, 

P 1 37 , P 1 38 , 

P 1 8 2 . 

P 1 8 3 , 

P 184 , 

P 1 8 5 , 

P 1 86 , 

P 1 87 , 

P87 , 

P88 ] 

LP4 

45 

[Pill. 

PI 12, 

P 1 36 , 

P 1 37 , 

P 1 8 2 , 

P 1 8 3 , P 1 84 , 

P 1 85 , 

P 1 86 t 

P 1 87 , 

P86 , 

P87 ] 


Time = 5040 msecs 


(C74) /« -/ 

Accumulated Computation Time = 400140 msecs 
Time= 421880 msecs 

( D 74 ) DONE 

0UIT( ) ; 

( C75 ) 

%DCL-W-SKPDAT , image data (records not beginning with H $ " ) Ignored 
HME4905 job terminated at 23-JAN-1991 09:05:46.65 
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APPENDIX B 


MACSYMA CODE TO DIFFERENTIATE THE RESIDUAL 



/» */ 

/* RMDER . MAC : GENERAL RESIDUAL EXPRESSION & WING, WAKE UPDATES (K=KUP K=KLOW) -/ 

/* •/ 

/* MACSYMA PROGRAM TO GENERATE FORTRAN SOURCE CODE FOR THE JACOBIAN S RHS * / 

/* »/ 

/* DEC 12. 1990 ./ 

/* */ 

SHOWTIME : TRUES 


RESIDUAL : R I P *T A 1 1 P - ( P89 -P88 ) 

+ RIP*TA12P*(TAJ1*(P88-P83+P89-P84 ) + T A J2 - ( P93-P88+P94 -P89 ) ) 

+ RIP-QXINF*2/DXIC( I ) 

+S *(RIM*TA1 1M*(P88-P87) 

+ RIM*TA12M*(TAJ1*(P88-P83+P87-P82 )+TA J2 - ( P93 -P88+P92-P87 ) ) 

+ RIM«QXINF*2/DXIC( I )) 

+ RJP»TA22P*(P93-P88) 

+ RJP*TA21P*(TAI1*( P88-P87 + P93-P92 ) + T A I 2 * ( P89-P88+P94-P93 ) ) 
+S *(RJ *TA22M* ( P88-P83 ) 

+ RJ *TA21M*(TAI 1*(P88-P87+PB3-P82)+TAI2*(P89-P88+P84-P83) ) ) 


+V1*(RKP*TA33P-(P1 13-P88) + RKP *QZ I NF *2 *X I XX I ( J , I ) /DZETAC ( K ) ) 

+V2*(RK *TA33M«(P88 -P63) + RK *02 1 NF - 2 - X I XXI ( J , I )/DZETAC ( K ) ) $ 

PX(I.J.K) := DXII ( I )*(P( J.K, 1 + 1 )+S*P( J.K, I ) ) + OX I NF/X I X I P ( J . I )$ 

PY(I.J.K) := ( 1/2)*(AJ1 ( J)-(P( J ,K. I )-P( J-1 ,K, I ) + P( J . K , 1+ 1 ) -P ( J- 1 , K , I + 1 ) ) 

+AJ2(J)*(P(J+1.K,I)-P(J . K, I )+P( J+1 ,K. 1 + 1 )-P( J , K . I + 1 ) ) ) 

+ OXINF*S*XIYIP( J, I )/XIXIP(J , I )$ 

PZ[0] ( I , J.K) : = ( 1/2)*(A1K(K)*(P(J.K , I ) -P ( J . K - 1 . I ) + P ( J , K , 1+ 1 ) -P ( J , K- 1 . I + 1 ) ) 

+A2K(K)«(P(J.K+1,I)-P(J.K ,I)+P(J.K+1,I+1)-P(J.K ,1+1))) 

+ OZ I NF$ 

PZ [ 1 ] ( I . J , K ) : * ( 1/2 ) * ( DC 1 *P( J.K . I ) + DC2 " P ( J , K+ 1 , I )+DC3*P( J . K+2 , I ) 

+DC 1 *P ( J.K , 1+1 )+DC2*P ( J , K+ 1 , 1+ 1 )+DC3*P( J, K+2 , 1+ 1 ) ) + OZINFS 
PZ[2] ( I . J.K) : = ( 1/2)*(DC4*P(J,K, I ) +DC5 -P ( J , K - 1 , I )+DC6*P( J. K-2 , I ) 

+DC4*P( J.K, 1+1 )+DC5*P( J.K- 1 , 1+ 1 )+DC6*P( J.K-2, 1+1 ) ) + OZINFS 

CI(J) := CC1*P(J,KUP , ITE)+S*CC2*P(J.KUP +1,ITE)+ CC3*P(J.KUP +2.ITE) 

+ S*CC4*P(J,KL0W, ITE )+ CC5*P(J, KLOW- 1 , ITE )+S*CC6*P( J , KLOW-2 . I TE )$ 

PZ[3](I,J.K):« ( 1/2)*(A1K(K)*(P( J.K , I ) -P ( J , K- 1 . I )+P( J . K ,I + 1)-P (J.K- 1.1 + 1)) 

+A2K (K)*(P(J,K+1,I)-P(J,K . I )+P( J.K+1 , 1+1 )-P( J.K ,1+1))) 

+ OZ INF - A 1 K ( K ) *CI ( J ) $ 

PZ[4] ( I . J.K) : = ( 1/2)*(A1K(K)-(P(J,K , I ) -P ( J , K- 1 . I ) + P ( J , K , 1 + 1 )-P( J . K- 1 . 1+ 1 ) ) 

+A2K(K)*(P( J.K+1 . I )-P( J.K , I )+P( J.K+1 . 1+1 )-P( J.K .1+1))) 

+ OZ I NF - A2K(K)*CI(J)$ 

U(I.J.K) := A 1 1 R ( J, I )-PX(I , J.K) + X I Y IP ( J . I ) -PY ( I , J . K )$ 

V(I.J.K) := XIYIP(J,I)*PX(I,J.K) + PY(I,J.K)$ 

FOR N : O THRU 4 DO ( 

RH [N](I,J,K):=(1+G1*(U(I,J,K)*PX(I,J,K)+V(I,J,K)*PY(I , J.K)+P2[N] ( I , J . K ) W2 ) )j*G2 . 
SG [N](I,J.K):» G3 * ( ( RH [ N ] ( I , J , K ) +RH [ N ] ( I - 1 . J , K ) ) wG4 + G5 ) r NP 

RIP[N](I.J.K):- SG( I , J.K)-(RH[N]( I . J,K) + S*RH[N] ( 1-1 , J.K) ) + RH[ N ] ( I - 1 . J , K ) 
RIM[N](I.J,K):« RIP[N] ( 1-1 . J.K) )$ 

R1K ( ) :=( 3-RIP ( 1 )(I , J,K)+3*RIM[ 1 ] (I , J,K)+S*RIP[ 1 ] ( I , J.K+1 )+S*RIM[ 1] ( I , J.K+1 ) )/4$ 
R1KU( ) :=(3«RIP[2](I , J . K )+3 * R IM [ 2 ] ( I . J , K ) +S *R I P [ 2 ] ( I , J . K- 1 )+S *R I M [ 2 ] ( I . J,K-l))/4$ 
R2KW( ) : = ( RIP[3](I,J,K)+ R I M [ 3 ] ( I , J . K ) + R I P [ 3 ] ( I , J . K- 1 ) + R I M [ 3 ] ( I , J . K - 1 ) ) /4$ 
R2KP ( ) : = ( RIP[4](I , J , K ) + R I M( 4 ] ( I , J . K ) + R IP [ 4 ] ( I , J . K+ 1 )+ RIM[ 4 ] ( I , J . K+ 1 ) )/4$ 


FU (I.J) := CC 1 *P ( J , K . I ) + S*CC2*P( J.K+1 , I ) + CCS -P ( J . K+2 , I )$ 

FXU ():= TAI1*(FU(I,J)+S"FU(I-1.J))+TAI2-(FU(I+1,J)+S*FU(I,J))$ 

F YU ():= TAJ1*(FU(I. J ) + S* FU ( I . J- 1 ) ) + T A J2 » ( FU ( I , J+ 1 ) + S*FU( I . J ) )$ 

UU ():= (XIXX(J,I)^2+XIYX(J,I)*2)*FXU() + XI YX ( J , I ) *F YU( ) + XI XX ( J , I ) *0X I NFS 
VU ():= XIYX(J.I) * FXU ( ) + FYU()$ 

DDPU ( ) : = (UU( )*DDZXU+VU( )*DDZYU-OZINF) * DZETA(KL0W)$ 

FL (I.J) := CC4 *P ( J , K , I ) + S*CC5*P( J . K- 1 , I ) + CC6 *P ( J , K-2 , I )$ 

FXL ():= TAI 1*( FL( I , J)+S*FL( 1-1 , J) )+TAI2*(FL( 1+ 1 . J)+S*FL(I . J) )$ 

FYL ():= TAJ1*(FL(I,J)+S*FL(I,J-1))+TAJ2*(FL(I.J+1)+S*FL(I,J))$ 

UL ():= (XIXX( J, I )*2 + XIYX( J. I )^2)*FXL( ) + X I YX ( J . I ) * F YL ( ) + XIXX( J , I ) *OXINF$ 
VL ():= X I YX ( J , I ) * FXL ( ) + FYL()$ 

DDPL( ) : * (UL( )*DDZXL+VL( ) 'DDZYL-OZINF ) * DZETA(KLOW)$ 


(AN0FI1 : S *(R1K * TA33M * DDPU + R 1 K *0Z I NF *2 *XI XX I ( J . I ) /DZETAC ( K ) ) . 

ANOF 1 2 : R1KU * TA33P * OOPL + R 1 KU*OZ I NF * 2 *XI XX I ( J . I ) /DZETAC ( K ) , 

AN0FI3 R2KW * TA33M * CIR 

ANOF I 4 : S » R2KP * TA33P * CIR }$ 


/ 


/ 
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J 
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1 . J 
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J 

NK 
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NT [0 ] 

(1 

, 1 


1 

, 1 

. 1 

, 1 

, 1 

, 1 


1 

NT ( 1 ] 

[1 

, 1 


1 

,0 

,0 

,0 

.0 

,0 


0 

NT [2] 

[1 

, 1 


1 

,0 

,0 

.0 

, 1 

, 1 


1 

NT [ 3 ] 

( 1 

, 1 


1 

,0 

,0 

.0 

, 1 

, 1 


1 

NT [ 4 ] 

[1 

, 1 


1 

.0 

,0 

,0 

,0 

.0 


0 

FOR L : 0 

THRU 

4 DO 

(M 

: 0. 







FOR N: 1 

THRU 

15 

DC 

) (M 

: M+ 1 

, IF 

PART ( NT [ L ] 

,N) 

= 

FOR N: 1 

THRU 

15 

DC 

} (M 

: M+ 1 

, IF 

P ART ( NT [ L ] 

,N) 

= 


FOR N : 1 THRU 15 DO (M:M+1,IF PART ( NT [ L ] , N j 
FOR N : 1 THRU 15 DO ( M : M+ 1 , I F PART ( NT [ L ] , N ) 
FOR N : 1 THRU 15 DO ( M : M+ 1 , I F PART ( NT [ L 3 , N ) 
KILL(PX,PY.PZ[0] ,PZ[ 1 ] ,P2[2] ,PZ[3] ,PZ[4] ,U 
FOR L : 0 THRU 4 DO (M : 0. 

FOR N : 1 THRU 15 DO ( M : M+ 1 , I F PART ( NT [ L ] . N ) 
FOR N : 1 THRU 15 DO (M:M+1,IF PART ( NT [ L 3 , N ) 
FOR N : 1 THRU 15 DO (M:M+1,IF PART( NT [ L 3 , N ) 
FOR N:1 THRU 15 DO (M:M+1,IF P ART ( NT [ L ] , N ) 
FOR N : 1 THRU 15 DO (M:M+1,IF PART ( NT [ L ] , N ) 


2 . I 

,1-1 

, I- 

2,1 

,1-1 

, I- 

23. 

, J+1 

, J+1 

. J+ 1 , J 

. J 

, J 

3 . 

1 , K 

, K 


, K+1 

.K+1 

.K+1 ] . 

, 1 

, 1 

, 1 

, 1 

, 1 

, 1 

3 . 

.0 

,0 

,0 

, 1 

, 1 

, 1 

3 . 

,0 

.0 

,0 

,0 

.0 

.0 

3 . 

,0 

,0 

.0 

,0 

,0 

,0 

3 . 

.0 

,0 

,0 

, 1 

, 1 

, 1 

3 )$ 


THEN PP[L,M]:PX (NI[Nj,NJ[N],NK[N])), 

1 THEN PP [ L , M] : PY ( NI [N ] , NU [ N ] , NK [ N 3 ) ) , 

1 THEN PP[L,M] :PZ[L] (NI [N3 ,NU[N3 ,NK[N3 ) ) , 

1 THEN PP [ L , M 3 : U ( NI [ N } , NU [ N ] , NK [ N ] ) ) , 

1 THEN PP [ L , M] : V ( NI [ N 3 , N J [ N ] , NK [ N 3 ) ) ) $ 

V)$ ' 

1 THEN PF[L.M]:PX ( NI [ N ] , Nd [ N 3 , NK [ N 3 ) ) , 

1 THEN PF[L.M]:PY (NI [N] . NJ[N] , NK[N] ) ) , 

1 THEN PF[L,M] :PZ[L](NI[N] ,NJ[N] , NK[N] ) ) , 

1 THEN PF [ L , M ] : U ( NI [ N ] , NU [ N 3 , NK [ N 3 ) ) , 

1 THEN PF [ L , M] : V ( NI [ N ] , NU [ N j , NK [ N j ) ) )$ 


RTTO: 

[P(U ,K-2,I-2)*P36 ,P(U . K-2 ,1-1 )*P37 ,P(U ,K-2.I)=P38 ,P(U ,K-2 I+1)«P39 
P(U-1,K-1,I-2)»P5S ,P(U-1,K-1,I-1)*P57 ,P(U-1.K-1.I)=P58 .P(U-1 K-1 I+1)=P59 ’ 
P(U ,K-1 . I-2)*P61 ,P(U .K-1 ,I-1)»P62 . P ( U . K- 1 . I ) =P63 ,P(U , K- 1 ' 1 + 1 ) = P64 ’ 

P(U+1 ,K- 1 , 1-2 )=P66 ,P(U+1 .K-1 , 1-1 )=P67 , P ( U+ 1 , K- 1 , I ) =P68 ,P(U+1 K-1 ' 1+ 1 ) =P6 Q 

P(U-2,K , I -2 ) *P76 , P ( U - 2 , K ,I-1) = P77 ,P(U-2.K .I)=P78 ,P(U-2.K I + 1) = P79 ’ 

P(U-1,K , I -2) »P8 1 , P ( U“ 1 , K , I - 1 ) = P82 , P( U- 1 , K ,I)>P83 ,P(U-1 K I + 1)=P84 

P U . K , I -2 ) *P86 . P ( U .K . I - 1 ) =P87 ,P(U .K .I)=P88 ,P(U ,K ;i+l)=P89 ' 

P ( U+ 1 , K ,I-2)«P91 ,P(U+1.K , I - 1 ) =P92 ,P(U+1.K .I)«=P93 ,P(U+1.K .I + 1) = P94 ’ 

P(U + 2,K ,I-2)»P96 ,P(U+2.K ,I-1)=P97 ,P(U+2,K . I)>P98 ,P(U+2 K I+1)=P99 
P(U-1 ,K+1 , I-2)=P106 ,P(U-1 ,K+1 , 1-1 ) = P107.P(U-1 ,K+1 . I)=P108.P(U-1 K+ l' I + 1 ) - P 1 09 ' 
P(U ,K+1.I-2)*P111.P(U .K+1 . 1-1 ) =P 1 12,P(U , K+ 1 . I ) «P 1 1 3 . P ( J , K+ 1 j I + 1 ) =P 1 1 4 ' 

P( J+ 1, K+1, I-2)®P116,P(J+1,K+ 1,1-1). P117,P(J+1,K+ 1,1). P118,P( J+1 K+1 I+1)*Plig 
R P j^ ,K+2, I-2)*P136,P(J ,K+2.I-1)«P137,P(J , K+2, I ) =P 1 38 , P ( J ] K+2 I + 1 ) * P 1 39 ] $ 

[P(J-1,K , I - 2 ) =P8 1 , P ( J - 1 , K , I - 1 ) *P82 , P ( J- 1 , K , I ) =P83 ,P(J-1,K ,I+1)=P84 

P(J ,K , I -2 ) «P86 ,P(J , K , I - 1 ) *P87 ,P(J ,K ,I) = P88 ,R(J ,K ,I+1).p89 

P ( J+ 1 , K » I ”2 ) *P9 1 ,P(J+1,K ,I-1)«P92 ,P(J+1,K ,I)«P93 ,P(J+1,K ,I+1)=P94 

P( J-1 ,K+1 . I-2)»P 106 . P(U - 1 , K+1 . I - 1 ).P107 , P(U-1 . K+1 , 1 )«P108,P(U-1 ,'k+ 1 ’ 1 + 1 )-Pl09’ 

P(U .K+1 , I -2 ) =P 1 1 1 ,P(J .K+1 . 1-1 ) = P1 12.P(U ,K+1 . I )=P1 13. P( J , K+1, 1+1) «P 114* 

P(J + 1 ,K+1 , I - 2 ) ®P 1 1 6 , P ( J+ 1 . K+ 1 , 1-1 ) = P 1 1 7 , P ( J+ 1 , K + 1 , I)=P118,P( J+ 1,K+1,I+1).pil9 t 
/ P ( J- 1 , K+2 , I ) =P 1 33 , 

P( J , K+2 , 1-2 ) *P 1 36 , P( J , K+2 ,I-1)=P137,P(J , K+2 , I ) =P 138 , P( J , K+2 , 1+1 )*P139 

, P(J+1 ,K+2, I ) *P 1 43 , 

,K + 3,I ’ 2 ^ :=P1,S1>P( ' J ,K+3 , I- 1 )«P 162 , P( J , K+3 , I ) »P 1 63 , P ( J , K+3,I+1)=P164]$ 

[P(J , K-3 , I -2 ) -P 1 1 ,P(J . K-3 , I- 1 )»P 12 ,P(J , K-3 , I ) * P 1 3 ,P(j , K-3 , 1+ 1 )*P 14 

, P ( J- 1 , K-2 , I ) = P33 , 

P(J ,K-2.I-2)=P36 ,P( J , K-2 , 1-1 ) »P37 ,P(J ,K-2.I)«P38 ,P( J . K-2 . 1+1 )-P39 

P(J+1 f K-2.I)«P43 , 

P{ J-1 .K-1, I-2)»P56 ,P( J-1 ,K-1 , 1-1 )«P57 , P ( J- 1 , K - 1 , I ) = P58 , P ( J- 1 , K- 1 , I + 1)=P59 
P(J .K-1,I-2)-P61 ,P(J » K- 1,1-1 ) *P62 ,P(J ,K-1 f I)*P63 ,P(J , K- 1 j I + 1 ) *P64 

P(J+1 ,K-1 , I-2)=P66 ,P(J+1,K-1,I-1)=P67‘ , P ( J+ 1 , K- 1 , I ) =P68 ,P( J+1, K-1, 1+1 )=P69 
P ( J- 1 , K , I - 2 ) -P8 i ,P(J-1,K ,I-1)*P82 , P ( J - 1 , K ,I)=P83 ,P(J-1,K !l + 1)*P84 

P(J ,K ,1-2 ) =P86 ,P(J , K , I - 1 ) *PS7 ,P(J , K ,I)=P88 ,P(J ,K il + 1)*P89 

P ( J+ 1 , K , I -2 ) =P9 1 , P ( J+ 1 , K . 1-1 ) = P92 , P ( J+ 1 , K , I)»P93 . P ( J+ 1 . K !l + 1)»P94 ]$ 

RTT3 : J 


[P(J ,K-2. I-2)*P36 ,P(J , K-2 . I- 1 ) =P37 ,p(j ,K-2,I)«P38 ,P(J , K-2 . 1+ 1 ) =»39 
P( J-1 . K - 1 . 1-2 )=P56 . P( J- 1 .K-1 . 1-1 )*P57 , P ( J - 1 , K - 1 , I )»P58 , P( J - 1 . K- 1 .* I + 1 ) = P59 
P(J .K-1 ,I-2)»P61 ,P(J ,K-1 , 1-1 )=P62 ,P(J , K- 1 , I ) =P63 ,P(J , K- 1 ' I + 1 ) =PS4 
P( J+1 ,K-1, I-2)=P66 f P( J+1 .K-1 . I-1)*P67 , P ( J+ 1 , K- 1 , I ) =P68 t P(J+1 K-1 I+1)*P69 
P ( J- 1 , K . I -2 ) »P8 1 ♦ P ( J- 1 . K , I - 1 ) =P82 . P( J- 1 . K ,I)»P83 ,P(J-1 K ’l + 1)-P84 
P(J • K , I -2 ) *P86 ,P(J , K .1-1). P87 ,P(J .K ,I)-P88 .P(J ,K !l+l)=P89 ' 
P ( J+ 1 , K * I - 2 ) = P9 1 , P ( J+ 1 , K , I - 1 ) *P92 ,P(J+1,K .I)*P93 ,P(J+1,K ,I+1)=P94 

P(J , K+1 . I-2)*P1 1 1 , P( J ,K+1 , 1-1 )*P1 12, P( J , K+ 1 , I )*P1 13 , P( J K+1 I + 1)=P114' 
P(J .KLOW-2, ITE )*P182, P(J , KLOW- 1 , I TE ) «P 1 83 . P(J ,KLOW .ITE)«P184 
P(J ,KUP ,ITE)*P185. P(J , KUP + 1 , ITE )*P 186 , P(J , KUP +2,ITE) = P187 ] 


[P(J • K- 1 , I -2 ) *P6 1 ,P(J , K- 1 , I - 1 ) =P62 ,P(J , K- 1 , I ) *P63 ,P(J , K- 1 , I + 1 ) = P64 
P(J-t,K , I -2 ) =P 8 1 ,P(J-1,K .1-1)* P82 . P ( J- 1 , K ,I)*P83 ,P(J-1 t K !l + 1)*P84 

P(J * K ,I-2)*P86 ,P(J . K ,1-1 ) = P87 ,P(J ,K ,I).P 88 ,P(J ,K ’l + l)=P89 

P ( J+ 1 , K , I -2 ) =P3 1 , P ( J+ 1 , K , I - 1 ) =P92 , P ( J+ 1 , K ,I).P93 ,P(J+1,K # I + 1 )«P 94 ’ 

P( J- 1 , K+ 1 , 1-2 )*P106 , P( J- 1 ,K+1 , I- 1 )*P107 . P( J- 1 , K+1 , I )*P 108 , P( J- 1 , K+ 1 , 1+ 1 )*P109 * 

P(J , K+ 1 , I -2 ) =P 1 1 1 , P ( J . K+1 , I- 1 )*P1 12 , P( J , K+ 1 , I )=P 1 13 . P( J ,K +1 I + 1 ) b p i i 4 ' 

P( J+1 ,K+1 , I-2)*P1 16.P( J+1 ,K+1 . I-D-Pl 17.P( J+1 ,K+1 . I )=P1 18.PCJ+1 ,K+1 . 1 + 1 )«P1 19' 

P(J . K+2 . I -2 ) =P 136 , P ( J ,K+2, I - 1 ).P 137 , P( J . K + 2 , I ) =P 1 38 . P ( J , K+2 , I + 1 ) = P 1 39 ’ 

P(J .KLOW-2 , ITE )=P 182 , P(J , KLOW- 1 , ITE ) *P 183 , P(J .KLOW ,ITE)=P184 

P(J « KUP , ITE ) = P 1 85 , P(J .KUP + 1 , ITE ) *P 186 , P(J ,KUP +2,ITE)=P187 ] 


B -2 



( LPP[ 1 ] 

: [ P88 

, P89 

]. 

LPPO[ 3 1 ] 

[ P63 

, P64 , P88 

, P89 

, P 1 1 3 , P 1 14] 

LPP [ 2 ] 

: [ P87 

, P88 

]. 

LPPO[ 32 ] 

[ P62 

, P63 , P87 

, P88 

. PI 12. PI 13] 

LPP [ 3 ] 

: [ P86 

, P87 

], 

LPPO[ 33 ] 

[P61 

, P62 , P86 ■ 

, P87 

. PI 1 1 .PI 12] 

LPP [ 4 ] 

: [ P83 

, P84 

]. 

LPPO[ 34 ] 

[ P58 

, P59 , P83 

. P84 

, P 108 . P 109 ] 

LPP [5] 

: [ P82 

, P83 

3. 

LPPO[ 35 j 

[ P57 

, P58 , P82 

, P83 

, P 107 , P 108 ] 

LPP [ G ] 

: [P81 

. P82 

]. 

LPPO[ 36 ] 

[ P56 

, P57 ,P81 

, P82 

, P 106 , P 107 ] 

LPP [ 7 ] 

: [P63 

, P64 

]. 

LPPO[ 37 ] 

[P38 

, P 39 , P63 

, P64 

, P88 , P89 ] 

LPP[ 8 ] 

: [P62 

, P63 

]. 

LPPO[ 38 j 

[ P37 

f P38 , P62 

, P63 

, P87 , P88 ] 

LPP[ 9 ] 

: [P61 

, P62 

]. 

LPPO[ 39 ] 

[ P36 

, P37 , P6 1 

, P62 

, P86 . P87 ] 

LPP [ 10] 

: [ P93 

, P94 

]. 

LPPO [ 40 ] 

[P68 

, P69 , P93 

, P94 

, PI 18. PI 19] 

LPP [ 1 1 ] 

: [ P92 

, P93 

]. 

LPPO[ 4 1 ] 

[ P67 

, P68 ,P92 

, P93 

, PI 17, PI 18] 

LPP [ 12] 

: [P91 

, P92 

]. 

LPPO [42] 

[pss 

, P67 ,P91 

, P92 

.PI 16. PI 17] 

LPP [ 13] 

: [PI 13 

.PI 14] , 

LPPO [ 43 ] 

[P88 

, P89 , P 1 1 3 , P 1 1 4 

, P 1 38 . P 1 39 ] 

LPP [ 14] 

: [PI 12, PI 13] . 

LPPO[ 44 ] 

[ P87 

, P88 , P 1 1 2 

, P 1 1 3 

, P 1 37 . P 1 38 ] 

LPP [ 15] 

: [PI 1 1 

, PI 12 ] , 

LPPO [45] 

[ P86 

, P8 7 .Pill 

, P 1 1 2 , P 1 36 . P 1 37 ] 


LPP[16] :[P8 3 , P84 , P88 , P89 ,P93 ,P94 ], LPP [ 46 ] : LPP [ 1 6 ] , LPP [ 6 1 ] : LPP [ 1 6 ] , 

LPP [17] : [ P82 , P83 , P87 ,P88 ,P92 t P93 ]. LPP [ 47 ] : LPP [ 1 7 ] , LPP [ 62 ] : LPP [ 1 7 ] , 

LPP [18] : [ P8 1 , P82 ,P86 ,P87 t P9 1 ,P92 ], LPP [ 48 ] : LPP [ 1 8 ] , LPP [ 63 ] : LPP [ 18 ] , 

LPP [19] : [ P78 , P79 ,P83 , P84 ,P88 t P89 ], LPP [ 49 ] : LPP [ 1 9 ] , LPP [ 64 ] : LPP [ 1 9 ] , 

LPP [ 20] : [ P77 ,P78 ,P82 ,P83 ,P87 ,P88 ] f LPP [ 50] : LPP [ 20] . LPP [ 65 J : LPP [ 20 ] , 

LPP [21] : [ P76 , P77 ,P81 ,P82 ,P86 ,P87 ], LPP [ 5 1 ] : LPP [ 21 ] , LPP [ 66 ] : LPP [ 2 1 ] . 

LPP [ 22 ] : [ P58 ,P59 ,P63 , P64 , P68 ,P69 ] f LPP [ 52 ] : LPP [ 22 ] f LPP [ 67 ] : LPP [ 22 ] , 

LPP [ 23 ] : [ P57 ,P58 ,P62 ,P63 , P67 ,P68 ], LPP [ 53 ] : LPP [ 23 j , LPP [ 68 ] : LPP [ 23 ] f 

LPP [ 24 ] : [ P56 ,P57 ,P61 , P62 , P66 ,P67 j, LPP [ 54 ] : LPP [ 24 ] , LPP [ 69 3 : LPP [ 24 ] . 

LPP [ 2 5 ] : [ P88 ,P89 ,P93 ,P94 t P98 , P99 jj , LPP [ 55 ] : LPP [ 25 ] f LPP [ 70 3 : LPP [ 25 ] , 

LPP [ 26 ] : [ P87 , P88 ,P92 ,P93 ,P97 t P98 ], LPP [ 56 ] : LPP [ 26 ] , LPP [ 7 1 ] : LPP [ 26 ] , 

LPP [ 27 ] : [ P86 ,P87 ,P91 , P92 f P96 ,P97 j, LPP [ 57 ] : LPP [ 27 ] . LPP [ 72 ] : LPP [ 27 ] f 
LPP [28] : [ P 1 08 , P 1 09 , P 1 1 3 , P 1 1 4 , P 1 1 8 , P 1 1 9 ] , LPP [58]: LPP [28] , LPP [73] : LPP [ 28] , 

LPP [29] : [PI 07, PI 08 ,P1 12, PI 13, PI 17, PI 18] , LPP [59] : LPP [29] f LPP [74] : LPP [29] , 

LPP [30] : [P106 . PI 07, PI 1 1 , PI 12 , P 1 16, Pi 17] , LPP [60] : LPP [30] , LPP [75] : LPP [30] , 
LPP1[31] : [ P 8 8 , P89 t P 1 1 3 , P 1 1 4 , P 1 38 , P 1 39 ] , LPP2 [ 3 1 ] : [ P38 . P39 . P63 , P64 , P88 , P89 ], 
LPP 1 [32] : [ P87 , P88 . P 1 1 2 , P 1 1 3 , P 1 37 , P 1 38 ] , LPP2[32] : [ P37 , P38 , P62 , P63 , P87 , P88 ] , 
LPP 1 [33] : [ P86 , P87 , P 11 1 , P 1 1 2 , P 1 36 . P 1 37 ] , LPP2 [ 33 ] : [P36.P37 ,P6 1 , P62 . P86 , P8 7 ] , 
LPP 1 [ 34 ] : [ P83 , P84 , P 108 , P 109 , P 1 33 , P 1 34 ] , LPP 2 [ 34 ] : [ P33 , P34 , P58 , P59 , P83 , P84 j , 

LPP 1 [35] : [P8 2 , P8 3 , P 1 07 , P 1 08 , P 1 32 , P 1 33 ] , LP?2 [ 35 ] : [ P32 , P33 , P57 , P58 , P82 , P8 3 ] , 

LPP1 [36] : [P81 , P82 , P 1 06 , P 1 07 , P 1 3 1 , P 1 32 ] . LPP 2 [ 36 ] : [ P3 1 , P32 , P56 , P57 , P8 1 ,P82 ], 

LPP1 [37] : [P63 , P64 , P88 , P89 , P 1 1 3 , P 1 1 4 ] , LPP 2 [ 37 ] : [ P 1 3 , P 1 4 , P 38 , P39 , P63 , P64 ], 

LPP 1 [ 38 ] : [ P62 , P63 ,P87 , P88 , P 1 1 2 . P 1 1 3 j , LPP2 [ 38 ] : [ P 1 2 , P 1 3 , P37 , P38 , P62 t P63 J, 

LPP1 [39] : [P61 , P62 , P86 , P87 # P 1 1 1 , P 1 1 2 ] , L PP 2 [ 39 ] : [ P 1 1 , P 1 2 , P36 . P37 , P6 1 , P62 ], 

LPP 1 [40] : [P93 , P94 , P 1 1 8 , P 1 1 9 , P 1 43 , P 1 44 ] , LPP2 [ 40 ] : [ P43 , P44 , P68 , P69 , P93 , P94 ] , 
LPP 1 [ 4 1 ] : [ P92 , P93 .P117,P11B,P142.P143], LPP2[4 1 ] : [ P42 , P43 , P67 , P68 , P92 , P93 ] , 
LPP1 [42] : [P91 , P9 2 , P 1 16 , P 1 1 7 , P 14 1 , P 1 42 ] , LPP2 [42 ] : [ P4 1 , P42 , P66 , P67 , P9 1 , P92 ] , 

LPP 1 [43] : [PI 13 , PI 14 , P 1 38 .P139 , Pi 63, PI 64] , LPP2[43] : [ P63 , P64 , P88 , P89 . P 1 13, PI 14] , 
LPP 1 [44] : [PI 12, PI 13 , Pi 37 , Pi 38 , PI 62. PI 63] , LPP2[44] : [ P62 . P63 . P87 , P88 .P112.P113], 
LPP 1 [45] : [ P 1 1 1 .P112.Pl36.pl 37, P161 # P162] , LPP2[45] : [P61 . P62.P86, P87 ,P111,P112])$ 
SCIR: [P182,P183,P184,P185,P186,P187]$ 

(LPP3[31 ] : [ P63 . P64 ,P 88 , P89 , P 1 1 3 , P 1 1 4 ] , LPP3 [ 3 1 ] : APPEND ( LPP3 [ 3 1 ] , SC I R ) , 

LPP3 [ 32 ] : [ P62 . P63 ,P87 ,P88 , P 1 1 2 , P 1 1 3 ] , LPP3 [ 32 ] : APPEND ( LPP3 [ 32 ] , SC I R ) . 

LPP3 [ 33 ] : [ P6 1 ,P62 ,P86 , P87 , P 1 1 1 , P 1 1 2 ] . LPP3 [ 33 ] : APPEND ( LPP3 [ 33 ] , SC I R ) , 

LPP3 [ 34 ] : [ P58 , P59 ,P83 ,P84 ,P108,P109], 

LPP3 [ 35 ] : [ P57 ,P58 ,P82 , P83 ,P107 f Pl08] # 

LPP3 [ 36 ] : [ P56 , P57 ,P61 ,P82 t P106,Pl07], 

LPP3 [ 37 ] : [ P38 . P39 , P63 , P64 ,P88 ,P89 ] , LPP 3 [ 37 ] : APP END ( LPP3 [ 37 ] , SC I R ) . 

LPP3 [ 38 ] : [ P37 ,P38 , P62 ,P63 ,P87 , P88 j , LPP 3 [ 38 ] : APPEND ( LPP3 [ 38 ] . SC 1 R ) , 

LPP3 [ 39 ] : [ P36 ,P37 ,P61 ,P62 .P86 ,P87 ] , LPP3 [ 39 ] : APP END ( LPP3 [ 39 ] . SC I R ) , 

LPP3 [ 40 ] : [ P68 ,P69 , P93 , P94 ,P118,P119], 

LPP3 [41] : [ P67 ,P68 ,P92 ,P93 .P117.P118], 

LPP3 [ 42 ] : [ P66 , P67 , P91 , P92 ,P 116.P117], 

LPP3 [ 43 ] : [P88 , P89 , P 1 1 3 . P 1 1 4 , P 1 38 , P 1 39 ] , LPP3 [ 43 ] : APPEND ( LPP 3 [ 43 ] , SCIR ) , 

LPP3 [ 44 ] : [ P8 7 , P88 t P 1 1 2 , P 1 1 3 . P 1 37 # P 1 38 ] , LPP 3 [ 44 ] : APPEND ( LPP3 [ 44 ] , SCIR ) , 

LPP3 [ 4 5 ] : [ P86 ,P87 , P 1 1 1 , P 1 12 . P136 , P 1 37] , LPP3 [45 ] : APPEND ( LPP3 [ 45 ] , SCIR) )$ 

SR IP : [P62.P63 , P64 , P82 , P83 , P84 , P87 , P88 , P89 , P92 , P93 , P94 f P 1 12,P113,P114]$ 

SRIM : [P6 1 , P62 , P63 , P8 1 , P82, P83 , P86, P87 , P88 , P9 1 , P92 , P93 ,P111,P112,P113]$ 

SR J : [P56,P57,P58.P59,P61 ,P62,P63,P64,P76 ,P 77 , P78 , P79 . P8 1 ,P82 . P83 ,P84 , 

P86,P87,P88,P89,P91 , P92 , P93 , P94 , P 106 , P 107 , P 108 , P 109 , P 1 11.P112.P113.P1 14]$ 
SRK : [P36,P37,P38,P39,P56,P57,P58,P59,P61 ,P62,P63,P64,P66 ,P67 , P68 , P69 , 

P8 1 , P82 , P83 , P84 , P86 , P87 , P 88 , P89 , P9 1 , P92 , P93 , P94 .Pill .P112.P113.P1 14]S 
SR JP : [P61 ,P62,P63,P64 ,P66 f P67,P68,P69,P81 ,P82 , P83 ,P84 ,P86 .P87 , P88 , P89 , 

P91 . P92 , P93 , P94 , P96 , P97 , P98 , P99 ,Pl11,P112,P113 t P114 f P116,P117.P118.P119]$ 
SRKP : [P61 ,P62, P63.P64.P81 , P82 . P83 , P84 , P86 , P87 , P88 , P89 . P9 1 ,P92,P93, 

P94, PI 06, PI 07, PI 08, PI 09, PI 11 l P112 f Pl13,P114,P116,P117 l Pl18,P119 I 
P136,P137,P138, P139]$ 

SR IK : [P81 , P82 , P83, P84 , P86, P87 ,P88, P89,P91 , P92 , P93 , P94 , P 106 , P 107 , P 108 , 

pios.pni.pi^.piis.PiiA.piie.Pi^.piis.piig.pise.pnT.piss.piss. 

P 1 6 1 ,P162,P163,P1 64 ] $ 

SDPU : [ P83 , P87 , P88 , P89 ,P93,P108,P112,P113,Pl14,P118,P133,P137 t P138,P139 l P143]$ 
SR1KU: [PI 1 ,P12, P13.P14 .P36.P37 ,P38,P39,P56,P57 ,P58,P59,P61 ,P 62.P63.P64, 
P66,P67,P68,P69,P8 1 , P82 , P83 . P84 , P86 , P87 ,P88,P89,P91 , P92 , P93 , P94 ] $ 

SDPLO : [P33,P37,P38, P39 , P43 , P58 , P62 , P63 , P64 , P68 , P83 . P87 , P88 , P89 , P93 ] $ 
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SR2KW: APPENO(SRK ,[P182,P183,P184,P185,P186,P187])$ 

SR2KP : APPEND( SRKP ,[P182,P183.P184,P185.P186.P187])$ 

RTTW :[P(U , KLOW- 2 ,ITE)=P182, P(U , KLOW- 1 , I TE ) = P 1 83 , P(U ,KLOW ,ITE)=P184, 
P(J , KUP , I T E ) 1 P 1 85 , P(U , KUP + 1 , I TE ) =P 1 86 , P(U . KUP *2 , I TE ) = P 187 j $ 
LJKI : [ U- 2 = UM2 , U-1=UM1, U+1-UP1, U+2=JP2, K-2=KM2. K-1=KM1, K+1*KP1, K+2=KP2 
I -2* IM2 , I - 1 = I M 1 , I + WP1, 1 + 2 = 1 P2]$ 


( MAT CHDEC L ARE ( [DIFF ,A,B] .TRUE) , TE LLS I MP ( ' D I F F ( A , B ) , CONCAT ( A . B ) ) )$ 

DEP ENDS ( RIP.SRIP.RIM.SRIM.RU.SRJ.RK.SRK.RJP.SRUP, RKP , SRKP )$ 

FOR M: 1 THRU LENGTH( RTTO ) DO ( DER [ M ] : D I F F ( RE S IDUAL , RHS ( RTTO[ M ] ) ) )$ 
REMOVE ( [RIP.RIM.RU.RK.RUP.RKP] . DEPENDENCY )S 


DEPENDS (R1K.SR1K, DDPU, SDPU 
FOR M : 1 THRU LENGTH(RTTI) 
FOR M : 1 THRU LENGTH( RTT2 ) 
FOR M : 1 THRU LENGTH(RTT3) 
FOR M : 1 THRU LENGTH( RTT4 ) 
REMOVE ( [R IK, DDPU, R1KU, DDPL 


R1KU.SR1KU.DDPL.SDPL0, R2KW 
DO ( DER 1 [ M] : DI FF ( ANOFI 1 
DO ( DER2[M] : D I FF ( ANOFI2 
DO ( DER3 [ M ] : DI FF ( ANOFI3 
DO ( DER4 [ M] : D I F F ( ANOFI 4 
R2KW , R2KP , C I R ] .DEPENDENCY)' 


SR2KW.R2KP, SR2KP ,CIR . SCIR)$ 
RHS( RTT 1 [M ] ) ) )$ 

RHS(RTT2[M] ) ) )$ 

RHS ( RTT3 [ M ] ) ) )$ 

RHS ( RTT4 [M] ) ) )$ 


( SDES:[XD1,XD2,XD3,XD4,XD5], SDES 1 : [ XD 1 . XD2 ] , SDES2: [XD3. XD4 , XD5 ] )$ 
DEPENDS ( [OX INF , OZINF ] , SDES 1 , [DDZXU.DDZYU , DDZXL , DDZYL ] , SDES2)$ 


DEPENDS ( [RIP,RIM,RJ,RK,RJP,RKP],SDES1)$ 

FOR M : 1 THRU LENGTH( SDES 1 ) DO ( DRS [M]: D I F F ( RES I DUAL . SDES 1 [ M ] ) )$ 
REMOVE ( [RIP , RIM. RU, RK, RJP , RKP] .DEPENDENCY )S 


DEPENDS ( [R1K, R1KU, R2KW, R2KP] , SDES 1 , [DDPU.DDPL] . SDES)$ 

FOR M : 1 THRU LENGTH( SDES ) DO ( DRS1[M]: D I FF ( ANOF 1 1 . SDES [M ] ) . 

DRS2 [ M ] : DIFF(ANOFI2.SDES[M] ) , 
DRS3 [ M ] : D I FF ( AN0FI3 . SDES [M] ) , 
DRS4 [ M ] : D I F F ( ANOF 14 , SDE S [ M ] ) )$ 
REMOVE ( [ R IK. R1KU.R2KW.R2KP. DDPU, DDPL] . DEPENDENCY ) $ 


(PFO: MAKE L 1ST (PF[O.N]=CONCAT(PO,N),N, 1 .75), 
PF 1 : MAKELIST ( P F [ 1 , N ] =CONC AT ( PA . N ) , N , 1 , 75 ) , 
PF2: MAKELIST ( P F [ 2 , N ] * CONCAT (PB,N),N,1,75), 
PF3: MAKELIST ( PF [ 3 . N ] =CONCAT ( PC , N ) , N . 1 , 7 5 ) . 
PF4 : MAKELIST ( P F [ 4 , N ] =CONCAT ( PD , N ) . N , 1 , 75 ) ) $ 


(LT : SUBST ( PFO . [ R I P [ 0 ] ( I , J , K ) . RIM[0] ( I . U . K ) , 

RIP[0] ( I , U- 1 , K ) , RIM[0] ( I , U- 1 ,K) , RIP[0] ( I , J.K-1 ), RIM[0] ( I . U . K- 1 ) , 
RIP[Oj(I,U+1,K), RIM[0] ( I , U+ 1 ,K) , RIP[0] ( I , d.K+1 ) , RIM[ 0 ] ( I . U , K+ 1 ) ] ) , 
LR : [RIP. RIM, RIPUM, RIMUM, RIPKM, RIMKM, RIPUP, RIMUP, RIPKP RIMKP] 

FOR N : 1 THRU 10 DO ( LT [ N ] : SUBST ( LUK I . LT [ N ] ) , LR[N] :: LT[N]))$ 

(RU : (1/4) « ( RIP+RIM+RIPUM+RIMUM) , RUP : (1/4) * ( RI PUP+RIM JP+R I P+R IM ) , 

RK : (1/4) * (RIP+RIM+RI PKM+R I MKM ) , RKP : (1/4) * ( R I PKP+RIMKP+R I P+R I M ) j $ 


FOR 

N : 3 1 

THRU 

45 

DO 

( 

FOR 

N : 1 

THRU 

75 

DO 

( 

FOR 

L: 1 

THRU 

LENGTH ( SR I P ) 

DO 

( 

FOR 

L : 1 

THRU 

LENGTH ( SR I M ) 

DO 

( 

FOR 

L : 1 

THRU 

LENGTH ( SRJ ) 

DO 

( 

FOR 

L : 1 

THRU 

LENGTH ( SRK ) 

DO 

( 

FOR 

L: 1 

THRU 

LENGTH( 5R JP) 

DO 

( 

FOR 

L : 1 

THRU 

LENGTH(SRKP) 

DO 

( 


LPP [ Nj : LPPO [ N ] )$ 

DE PENDS ( CONCAT ( PO , N ) . LPP [ N ] ) )$ 
DR I P [ L ) : DIFF(RIP,SRIP[L] ) )$ 

DR I M [ L ] : DIFF(RIM.SRIM[L] ) )$ 

DRU [L] : D I F F ( RU .SRJ [L] ) )$ 

DRK [L] : DIFF(RK . SRK [L] ) )$ 

DR JP [ L ] : DIFF(RUP.SRUP[L] ) )$ 

DRKP [ L ] : DIFF(RKP, SRKP [ L ] ) )$ 


( R1K : SUEST ( PF 1 , R 1 K ( )) 

R1KU: SUEST ( PF2 , R1KU()) 
R2KW : SUBST ( PF3 , R2KW()) 
R2KP : SUBST ( PF4 , R2KP()) 
DDPU : SUBST ( RTT 1,DDPU()) 
DDPL : SUBST ( RTT 2 , DDPL ( ) ) 


. R 1 K : SUBST ( LUK I , R IK ). 

, R1KU: SUEST ( LUK I , R 1KU ) , 
. R2KW: SUB ST ( LUK I , R2KW ) , 

, R2KP : SUBST(LUKI . R2KP) . 

. DDPU: SUBST( LUKI , DDPU) . 
, DDPL: SUBST(LUKI ,DDPL) . 


CIR: SU8ST(RTTW,CI (U) ) )$ 


FOR 

N 

31 

THRU 

45 

DO 

( 

FOR 

N 

1 

THRU 

75 

DO 

( 

FOR 

N 

31 

THRU 

45 

DO 

( 

FOR 

N 

1 

THRU 

75 

DO 

( 

FOR 

N 

31 

THRU 

45 

DO 

( 

FOR 

N 

1 

THRU 

75 

DO 

( 

FOR 

L 

1 

THRU 

length(srik ) 

DO 

( 

FOR 

L 

1 

THRU 

LENGTH(SRIKU) 

DO 

( 

FOR 

L 

1 

THRU 

LENGTH ( SR2KW ) 

DO 

( 

FOR 

L 

1 

THRU 

LENGTH(SR2KP) 

DO 

( 

FOR 

L 

1 

THRU 

LENGTH ( SDPU ) 

DO 

c 

FOR 

L 

1 

THRU 

LENGTH ( SDPLO ) 

DO 

( 

FOR 

L 

1 

THRU 

LENGTH (SCIR ) 

DO 

( 


/* 


LPP [ N ] : LPP 1 [ N ] )$ 

DEPENDS ( CONCAT (PA,N),LPP[N]) )$ 

LPP [ N ] : LPP2 [ N ] )$ 

DEPENDS ( CONCAT (PB.N) , LPP [ N] ) )$ 

LPP [ N ] : LPP3 [N ] )$ 

DEPENDS ( [ CONCAT ( PC. N) , CONCAT ( PD . N ) ] , LPP[N] ) 


DR IK [L] 
DR 1KU [ L ] 
DR2KW [ L ] 
DR2KP [ L ] 
DDDPU[L] 
DODPL [ L ] 
DC I R [L] 


DIFF(R1K .srik [l]) )$ 
DIFF(R1KU.SR1KU[L] ) )$ 
DI FF ( R2KW . SR2KW[ L j ) )$ 
DIFF(R2KP,SR2KP[L] ) )$ 
D I FF ( DDPU . SDPU [L]) )$ 
DIFF(DDPL, SDPLO[ L ] ) )$ 
DIFF(CIR , SCIR [L]) )$ 


)$ 


*/ 


B-4- 



FOR N : 1 THRU 75 DO DEPENDS 

( [ CONCAT ( PO , N ) , CONCAT ( P A . N ) , CONC AT (PB.N) ,CONCAT(PC,N) , CONC AT (PD,N)],SDES1)$ 

FOR L : 1 THRU LENGTH( SDES 1 ) DO ( DNRIP [L]: DIFF(RIP , SDES1[L]). 

DNRIM [ L ] : DI FF ( RIM . SDES1[L]). 

DNRJ [ L ] : D I F F ( R J . SDES 1 [ L ] ) , 

DNRK [L]: D I F F ( RK , SDES1[L]), 

DNRJP [L]: D I FF ( RJP , SDES 1 [ l ] ) , 

DNRKP [L]: D I FF ( RKP , SDES1[L]), 

DNR1K [ L ] : DIFF(R1K , SDES1[L]). 

DNR1KU[ L] : D I FF ( R 1KU , SDES1[L]). 

DNR2KW [ L ] : D I FF ( R2KW, SDES1[L]), 

DNR2KP [ L ] : D I FF ( R2KP , SDES1[L]) )$ 

FOR L : 1 THRU LENGTH( SDES ) DO ( DNDPU [L]: D I FF ( DDPU , SDES [L]). 

DNDPLO [ L ] : D I F F ( DDPL , SDES [ L ] ) )$ 

KI LI ( RULES )$ 


/ — */ 

PPSUB(I) := FOR N: 1 THRU 75 DO ( FOR M: 1 THRU LENGTH( LPP[N] ) 

DO (TD:PART(LPP[N],M), PP [ I , N ] : SUBST ( TD , EV( TD ) , PP [ I , N ] ) ) )$ 


(FOR N : 3 1 THRU 45 DO ( LPP [N] : LPPO [N] ), 

FOR L : 1 THRU LENGTH(RTTO) DO ( RHS ( RTTO [ L ] ) :: LHS ( RTTO [ L ] ) ) , PPSUB(0))$ 
(FOR N : 3 1 THRU 45 DO (LPP [N] LPP 1 [N] ). 

FOR L : 1 THRU LENGTH(RTTl) DO ( RHS ( RTT 1 [ L ] ) :: LHS ( RTT 1 [ L ] ) ) . PPSUB(1))$ 

(FOR N : 3 1 THRU 45 DO (LPP [N] LPP2 [N] ). 

FOR L : 1 THRU LENGTH( RTT2 ) DO ( RHS ( RTT2 [ L ] ) :: LHS ( RTT2 ( L ] ) ) . PPSUB(2))$ 

(FOR N : 3 1 THRU 45 DO (LPP [N] : LPP3 [N] ). 

FOR L : 1 THRU LENGTH( RTT3 ) DO ( RHS ( RTT3 [ L ] ) :: LHS ( RTT3 ( L ] ) ) . PPSUB(3))$ 
(FOR L : 1 THRU LENGTH ( RTT 4 ) DO ( RHS ( RTT4 [ L ] ) :: LHS ( RTT4 ( L ] ) ) . PPSUB(4))$ 

FOR L : 0 THRU 4 DO (FOR N:1 THRU 75 DO ( PP [ L . N ]: SUBST ( LJKI , PP [ L , N ])) )$ 

FOR L : 1 THRU LENGTH(RTTO) DO ( RTTO [ L ] : SUBST ( LJKI , RTTO[ L ] ) )$ 

FOR L : 1 THRU LENGTH(RTTI) DO ( RTT 1 [ L ] : SUBST ( L JK I , RTT 1 [ L ] ) )$ 

FOR L : 1 THRU LENGTH( RTT2 ) DO ( RTT2 [ L ] : SUBST ( LJKI , RTT2 [ L ] ) )$ 

FOR L : 1 THRU LENGTH( RTT3 ) DO ( RTT3 [ L ] : SUE ST ( L JK I , RTT3 [ L ] ) )$ 

FOR L : 1 THRU LENGTH ( RTT 4 ) DO ( RTT 4 [ L ] : SUB ST ( L JK I , RTT4 [ L ] ) )$ 


/* / 

/» DEFINE FUNCTIONS USED IN WRITING SOURCE OUTPUT */ 

/• / 


TITLET(ST 1 , ST2.ST3) 

( GENTRAN( LITERAL (TAB, EVAL(ST1 ) ,CR) ) , 

GENTRAN(LITERAL( "C” , TAB , EVAL ( ST2 ) , CR , “C" . CR , TAB , EVAL( ST3 ) ,CR) ) )$ 

TITLEB( ) : = 

GENTRAN( LITERAL( "C" , CR , TAB , “RETURN" , CR .TAB , "END" , CR) )$ 

TITLEC(STI) 

GENTRAN( L ITERAL ( " C " , CR , T AB , E VAL ( ST 1 ) .CR) )$ 

TITLEI(LNR.RTT) 

( GENTRAN( LITERAL ( " C “ . CR , " C " , TAB , " P " , CR , "C " , CR ) ) , 

FOR L : 1 THRU LNR DO 

GENTRAN( LITERAL(TAB , EVAL(RHS(RTT[L] ) ) , " * ", EVAL ( LHS ( RTT [ L ])). CR ) ) )$ 
TITLE2 ( ST 1 , I ) : = 

( GENTRAN(LITERAL( "C" ,CR. "C" .TAB . EVAL(ST 1 ) , CR , "C" .CR ) ) . M: 0. 

FOR NN:1 THRU 5 DO (FOR N:1 THRU 15 DO (M:M+1, IF P ART ( NT [ I ] . N ) = 1 THEN 

GENTRAN(LITERAL(TAB, EVAL(ST1 ) , EVAL(M) , “ = " . EVAL ( PP [ I . M] ) . CR ) ) ) ) )$ 

TITLE3(ST 1 , I . RRTT ) : = 

( GENTRANOPT: FALSE, 

(FOR N : 1 THRU 75 DO ( PD : D I F F ( PP [ I . N ] . RRTT ) , IF PD»0 THEN 

GENTRAN( LITERAL (TAB , EVAL( ST 1 ) . EVAL(N) . EVAL ( RRTT) , " « “ , EVAL( PD ) , CR ) ) ) ) . 

GENTRANOPT: TRUE )$ 

TITLE4(ST 1 , RRTT . DRD ) : = 

GENTRAN(LRSETO( EVAL ( CONCAT (ST 1 , RRTT) ) , DRD ) )$ 

TITLE5(ST 1 , I ,XDL) := 

( MATCHDECLARE ( [DIFF , A . B] .TRUE ) , TELLSIMP( ' DI FF ( A . B ) . CONCAT ( A . B ) ) . 

GENTRAN( L I TE R AL ( "C " , EVAL ( XDL ) , CR ) ) , T I TL E3 ( ST 1 , 1 , XOL ) , KILL ( RULES ) )$ 
EXEC 1 ( PI JKP ) : = 

IF L=1 THEN 

GENTRAN( LITERAL (TAB , "IF (CND( II . JJ.KK, “ . EVAL ( PART ( EV( PI JKP) , 3 ) ),",*. 

EVAL ( PART ( EV(PI JKP) . 1 )),"," , E VAL ( PART ( EV ( P I JKP ) ,2) ) . " ) ) THEN" ,CR) ) 

ELSE 

GENTRAN( LITERAL (TAB . "ELSE IF (CND( II , JJ , KK . “ , E VAL ( P ART ( EV( PI JKP ) . 3 ) ) , " , " 

EVAL ( PART (EV( PI JKP) . 1 )),"," . E VA L ( PART ( E V ( P I JKP ) . 2 ) ) . “ ) ) THEN" .CR) )$ 
EXEC2 ( ) 

( GENTRANOPT: FALSE, MAXEXPPRINT : 3200 )$ 

EXEC3 ( RTT ) := 

IF L = LENGTH( RTT ) THEN GENTRAN ( L I T E R AL ( T AB , " END I F “ . CR ) )$ 


/- — - — */ 
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START WRITING FORTRAN SOURCE OUTPUT 


/„ 

GENTRANOUT ( " RMDER . FOR " )$ /* 

/- 

/--/TITLET( “SUBROUTINE R ( J , I , K , UJ , 1 1 , KK , D ER ) " , “RMDER . FOR “ , "INCLUDE 
/-“/(TITLE 1 (LENGTH(RTTO) , RTTO) , TITLE2( " PO " . 0 ) ) $ 


V 

*/ 
*/ 

( INTRO) " )$ 


/--/GENTRAN( LITERAL ( "C'.CR, " C " , T A B , "RIP ,RIM, RJ, RK.RJP.RKP" , CR , "C" ,CR) )$ 
GENTRANOPT: TRUES 

(GENTRAN(RSETQ(RIP,RIP) ) , GENTRAN(RSETO(RIM,RIM) ), GENTRAN( RSETQ ( R J , R J )), 
GENTRAN(RSETO(RK ,RK )). GENTRAN( RSETQ( R JP , R JP ) ) , GENTRAN ( RSETO( RKP , RKP ) ) ) $ 


/--/GENTRAN(LITERAL( "C M ,CR, 

( LR I P : 0 , LR IM : 0 , LRJ:0. LRK 
FOR L:1 THRU LENGTH(RTTO) DO 
GENTRAN( LITERAL ( "C ",EVAL( 
IF MEMBER(RRTTO.SRIP) THEN 
MEMBER(RRTTO.SRIM) 
MEMBER(RRTTO, SRU ) 
MEMBER(RRTTO,SRK ) 
MEMBER(RRTTO.SRJP) 
MEMBER(RRTTO.SRKP) 

EXEC2 ( ) , 

GENTRAN(LITERAL(TAB 


C" .TAB, " D E R M , C R ) )$ 

0, LR JP : 0 , L RKP : 0 ) $ 

( PRINT(L), RRTT0:RHS(RTT0[L] ) , 


IF 

IF 

IF 

IF 

IF 


RRTTO ) . CR ) ) , EXEC 1 ( LRTTO) , 

( LR I P : LR I P-M , TITLE4( "RIP' 


LRTTO:LHS(RTTO[L] ) , 


THEN 

THEN 

THEN 

THEN 

THEN 


( LR I M : LR I M+ 1 , 
( LR J : LR J , 
(LRK : LRK +1 , 
(LRJP:LRJP+1 , 
( LRKP : LRKP+ 1 , 


T I TLE4 ( “RIM 
T I TLE4 ( "RJ" 
TITLE4 ( 

T I TL E4 ( 

T I TLE4 ( 


RK" 
R JP 
RKP 1 


"DER 


/- 

/**/TITLET( "SUBROUTINE R1(J. 
/--/(TITLE1(L ENGTH ( RTT 1 ) , RTT 


TITLE4( "RES 
"RES" , EVA L (RRTTO ) ,CR) ) t 


I .K. JJ, II , KK , DAN ) " , "RMDER 1 
1 ) , TITLE2 ( "PA" , 1 ) )$ 


T I TLE3 ( ”P0" ,0. RRTTO) , 

. RRTTO, DRIP[ LRIP J ) ) ) . 

, RRTTO, DRIM[LRIM] ) ) ) , 

. RRTTO, DRJ [ LR J ])) ). 

, RRTTO. DRK [LRK J)) ) , 

. RRTTO, DRJP[LRJP] ) ) ) , 

, RRTTO, DRKP[ LRKP] ) ) ) , 
.RRTTO, DER [L ]) 

EXEC3 ( RTTO ) )$ 

-*7 T I TLEB ( )$ 

FOR" , "INCLUDE ( INTRO) " )$ 


/-*/( GENTRAN ( L I TERAL ( “ C " . CR , "C" , TAB , ** R 1 K , DPU " , CR . ”C " , CR ) ) . GENTRANOPT : TRUE ) $ 
(GENTRAN(RSET0(R1K,R1K) ) , GENTRAN( LI TERAL ( TAE , " DDPU=DPU ( J , I ) " ,CR) ))$ 


/**/ ( GENTRAN ( LITERAL( "C - , CR , "C " , TAB . “DER 1 - , CR ) ) . LR1K:0, LDPU:0)$ 

FOR L : 1 THRU LENGTH ( RTT 1 ) DO ( PRINT(L). RRTT 1 : RHS ( RTT 1 [ L ] ) , LRTT 1 : LHS ( RTT 1 [ L ] ) , 
GENTRAN ( LITERAL ( "C H , E VAL( RRTT 1),CR)), EXEC1( LRTT 1 ) , TITLE3( " PA H , 1 , RRTT 1 ) , 

( IF MEMBER(RRTT 1 ,SR1K) THEN ( LR t K : LR 1 K+ 1 , T I TLE4 ( " R 1 K " , RRTT 1 , DR IK [ LR 1 K ] ) ) 

( IF MEMBER(RRTT 1 , SDPU) THEN ( LDPU : LDPU+ 1 . T ITLE4 ( "DDPU " . RRTT 1 , DDDPU [ LDPU j ) ) 
EXEC2 (>< TITLE4( "DAN" , RRTT 1 , DER 1 [L ]) 

GENTRAN( L ITERAL ( TAB , "DAN = " , " DAN " , EVA L ( RRTT 1 ), CR )) , EXEC3(RTT1) )$ 

' */ TI TLEB ( )$ 

/ - ♦/TITLET ( "SUBROUTINE R2(J, I , K , J J , 1 1 , KK , DAN ) M , " RM0ER2 . FOR " , "INCLUDE ( INTRO ) M )$ 
/--/ (TITLE1 ( L ENGTH ( RTT2) , RTT2) , TITLE2("PB",2))$ 


). 

). 


/- -/ ( GENTRAN ( LITERAL ( "C",CR, "C " , TAB , "R 1KU , DPLO “ , CR , "C" , CR ) ) , GENTRANOPT : TRUE )$ 
( GENTRAN ( RSETO( R 1KU , R 1 KU ) ) , GENTRAN ( L I TERAL ( TAB . "DDPL = DPLO ( J , I ) " , CR ) ) )$ 


/*"/(GENTRAN( LI TERAL ( "C'.CR, "C" .TAB, " D E R 2 " , C R ) ) , LR1KU :0. LDPLO : 0 ) $ 

FOR L : 1 THRU LENGTH ( RTT2 ) DO ( PRINT(L), RRTT2 : RHS ( RTT2 [ L ] ) , LRTT2 : LHS ( RTT2 [ L ] ) 
GENTRAN (LITERAL( 11 C " , E V A L ( RRTT2 ) , CR ) ) , EX EC 1 ( LRTT2 ) , T I TLE3 ( " PB " . 2 , RRTT2 ) , 

(IF MEMBER ( RRTT2 , SR 1 KU ) THEN ( LR 1KU : LR 1 KU+ 1 , T I T LE4 ( " R 1 KU " , RRTT 2 , DR 1 KU [ LR 1KU ] ) ) ) , 
(IF MEMBER( RRTT2 , SDPLO ) THEN ( LDPLO : LDPLO+ 1 , T I T LE4 ( " DDPL " , RRTT2 , DDDPL [ LOPLO ] ) ) )] 
EXEC2 ( ) , TITLE4( "DAN" ,RRTT2!dER2 [L ]) ’ 

GENTRAN( LITERAL( TAB , "DAN - " , "DAN " , E VAL ( RRTT2 ) , CR ) ) , EXEC3(RTT2) )$ 

/«-- */ T I T LEB ( )$ 

/--/TITLET( "SUBROUTINE R3 ( J , I , K , J J , 1 1 , KK . DAN) “ , " RMDER3 . FOR" , "INCLUDE ( INTRO ) " )$ 
/""“/(TITLE 1 (LENGTH(RTT3 ) , RTT3) , TITLE2 (" PC ", 3 )) $ 


/--/( GENTRAN ( LITERAL ( "C " , CR . "C" .TAB, " R2KW , CIR " , CR , "C",CR)), GENTRANOPT : TRUE ) $ 

( GENTRAN( RSETO( R2KW , R2KW ) ) , GENTR AN ( LI TER AL ( T AB , “ C I R = C I RC { J ) " , CR ) ) ) $ 

/--/(GENTRAN( LI TERAL ( "C'.CR. "C",TAE, " D E R3 " , CR ) ) . LR2KW:0, LCIR:0)$ 

FOR L : 1 THRU LENGTH( RTT3 ) DO ( PRINT(L). RRTT3 : RHS ( RTT3 [ L ] ) . LRTT3 : LHS ( RTT3 [ L ] ) , 
GENTRAN( LITERAL( "C " , E VA L ( RRTT3 ) , CR ) ) , EXEC 1 ( LRTT3 ) , T I T LE3 ( " PC" , 3 , RRTT3 ) , 

( I F MEMBER ( RRTT3 , SR2KW ) THEN ( LR2KW : LR2KW+ 1 , T I TLE4 ( "R2KW " , RRTT3 . DR2KW [ LR2KW ] ) ) ) , 
(IF MEMBER(RRTT3, SCIR ) THEN (LCIR :LCIR + 1 , TI TLE4 ( "C I R " , RRTT3 , DCIR [LCIR ])))’ 
EXEC2 (), TITLE4( "DAN" , RRTT3 , DER3 [L ]) 

GENTRAN( LITERAL ( TAB , "DAN =* " , "DAN" , EVAL ( RRTT3 ) , CR ) ) . EXEC3(RTT3) )$ 

/* */ TITLEB( )$ 

/--/TIT LET ( "SUBROUTINE R4 ( J , I , K , JJ , 1 1 , KK , DAN ) " , 11 RMDER4 . FOR" . "INCLUDE ( INTRO ) » )$ 
/--/(TITLE1( LENGTH( RTT4 ) , RTT4 ) , TITLE2("PD" 4))$ 


/--/( GENTRAN ( L I TERAL ( "C " , CR , "C " . TAB . " R2KP , C I R " . CR , "C " , CR ) ) , GENTRANOPT ■ TRUE )$ 

( GENTRAN (RSET0(R2KP . R2KP ) ) , GENTR AN( LITERAL ( TAB , "C I R = C I RC ( J ) " . CR ) ) ) $ 

/--/( GENTRAN ( LITERAL ( 11 C" . CR , "C" , TAB , "DER4 " , CR ) ) , LR2KP : 0, LCIR : 0)$ 

FOR L : 1 THRU LENGTH ( RTT 4 ) DO ( PRINT ( L ) , RRTT4 : RHS ( RTT4 [ L ] ) . LRTT4 : LHS ( RTT4 [ L ] ) , 
GENTRAN( LITERAL ( "C " . E VA L ( RRTT4 ) , CR ) ) , EXEC 1 ( LRTT4 ) , T I TLE3 ( " PD " , 4 . RRTT4 ) , 

( IF MEMBER ( RRTT4 , SR2KP ) THEN ( LR2KP : LR2KP+ 1 , TI TLE4 ( M R2KP M , RRTT 4 , DR2KP [ LR2KP ] ) ) ) , 
(IF MEMBER ( RRTT4.SCIR ) THEN (LCIR :LCIR +1 ,TITLE4( "CIR" , RRTT4 .DCIR [LCIR ])))[ 
EXEC2 0. TITLE4( "DAN" , RRTT4 . DER4 [L J) 

GE NT RAN( LITERAL(TAB , "DAN = ", "DAN" . EVAL ( RRTT4 ), CR )) , EXEC3(RTT4) )$ 

*/ TITLEB( )$ 
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/* 

/- RIGHT HAND SIDES 

/* 

/- XD = [ XD 1 , XD2 , XD3 , XD4 , XD5 ] 

/* 

/* [MACH, AOAR , T , C , L ] 

/* 

/■ 

/"*/TITLET( "SUBROUTINE RS(U,I,K,RHSM,RHSA,RHST, RHSC , RHSL ) " , 

"RMDERS . FOR" . 

/“*/(TITLE1( LENGTH ( RTTO ) , RTTO) , TITLE2( "PO" ,0) )$ 


*/ 

*/ 

*/ 

*/ 

•/ 

*/ 

*/ 

/ 

INCLUDE (INTROS) “)$ 


/»“/GENTRAN( LITERAL ( "C" ,CR . "C" .TAB , ” R I P , R I M , R J , RK , RUP , RKP " , CR . "C“ ,CR) )$ 
GENTRANOPT : TRUES 

(GENTRAN(RSETQ(RIP,RIP) ) , GENTRAN ( RSETO( R I M , R I M ) ) , GENTRAN( RSETOCRJ , RJ )), 
GENTRAN (RSETQ(RK , RK )), GENTRAN( RSETOt RUP . RUP ) ) . GENTRANf RSETQ ( RKP , RKP ) ) ) $ 


/»*/GENTRAN( LITERAL ( “C“ , CR , "C" , TAE , "DRESIDUAL" , CR ) )$ 

FOR L : 1 THRU LENGTH ( SD E S 1 ) DO ( PRINT(L), XDL : SDES1[L], TITLES ( "PO " ,0, XDL ) , 
TITLE4( "RIP" , XDL , DNR I P [ L ] ) . T I TL E 4 ( " R I M " . XD L , DNR I M [ L ] ) . 

T ITLE4 ( "RU " , XDL , DNRU [L]), TITLE4 ( "RK " , XDL , DNRK [L]), 

TITLE4( "RUP ” ,XDL , DNRUP [ L ] ) . TITLE4 ( "RKP” , XDL , DNRKP [ L ] ) , 

TITLE4( “RES” .XDL.DRS t L ] ) )$ 

/* */ 

TITLEC( "IF (K.EO. KUP .AND .I.GE.ILE.AND.I.LE.ITE.AND.U.LE. UTPM1 ) THEN" )$ 
/""/(TITLE1 ( LENGTH ( RTT1),RTT1) . T I TL E2 ( " P A " . 1 ) ) $ 

/**/(GENTRAN( LITERAL ( “C" ,CR, "C" .TAB , " R 1 K , DPU " , CR . " C " . CR ) ) . GENTRANOPT : TRUE ) $ 

( GENTRAN (RSETQ(R IK , R 1 K ) ) , GENTRAN(LITERAL(TAB. " DDPU = DPU ( U , I ) " . CR ) ) )$ 

/“ "/GENTRAN ( LITERAL ( "C" ,CR , "C" .TAB, "DANOFI 1 " ,CR) )$ 

FOR L : 1 THRU LENGTH(SDES) DO ( PRINT(L). XDL: SDES[L], TITLE5( "PA " , 1 , XDL ) . 

IF L< = LENGTH ( SD E S 1 ) THEN TITLE4( "R1K" . XDL , DNR 1 K [ L ] ) . 

TITLE4( “DDPU " , XDL , DNDPU [ L ] ) , 

TITLE4( "AN1 " , XDL , DRS 1 [L]) )$ 

GENTRAN( LITERA L ( " C " , CR . TAB , " END I F “ , CR ) )$ 

/* */ 

TITLEC( “IF (K.EO.KLOW.AND.I.GE.ILE.AND.I.LE.ITE. AND . U . LE . UTPM 1 ) THEN" )$ 
/""/(TITLE1 (LENGTH (RTT2) , RTT2 ) , T I TL E2 ( " PB " . 2 ) ) $ 

/““/( GENTRAN ( LITERAL ( " C " , CR . "C " . T AB , * R 1 KU , DP LO " , CR , " C " , CR ) ) , GENTRANOPT : TRUE )$ 

( GENTRAN ( RSETQ( R 1 KU , R 1 KU ) ) , GENTR AN ( L ITE R A L ( T AB , "DDPL=OPLO( U , I ) " . CR ) ) )$ 

/"*/GENTRAN( LITERAL ( "C " , CR , “C " , TAB , "DANOFI 2" , CR ) )$ 

FOR L : 1 THRU LENGTH(SDES) DO ( PRINT ( L ) , XDL: SDES[L], T ITLE5 ( " PB " . 2 . XDL ) . 

IF L< = LENGTH( SDES 1 ) THEN T I TL E4 ( " R 1 KU " . XDL . DNR 1 KU [ L ] ) . 

TITLE4 ( "DDPL " . XDL . DNDPLO [ L j ) . 

T ITLE4 ( " AN2 " , XDL , DRS2 [L]) )$ 

GENTRAN( L I TERA L ( " C " . CR . TAB . “ END I F " , CR ) )$ 

/" - / 

TITLECC'IF (K . EO . KUP . AND . I . GT . ITE . AND . U . LE . UTPM1 ) THEN" ) $ 

/“"/(TITLE 1 ( LENGTH! RTT3 ) , RTT3 ) , TITLE2( "PC" .3) )$ 

/»*/(GENTRAN( LITERAL ( "C" .CR. "C" .TAB , "R2KW.CIR" , CR , " C “ , CR ) ) . GENTRANOPT : TRUE ) S 
(GENTRAN! RSETO( R2KW . R2KW ) ) , GENTR AN ( L ITE RAL ( TAB , " Cl R = C I RC ( U ) “ . CR ) ) ) $ 


/"*/GENTRAN( LITERAL ( "C" ,CR , "C" .TAB, "DAN 0 FI 3 " , CR ) )$ 

FOR L : 1 THRU LENGTH ( SD E S 1 ) DO ( PR I NT ( L ) , XDL: SDES 1 [L], TITLES ( " PC “ , 3 , XDL ) , 

TITLE 4 ( “R 2 KW" ,XDL,DNR 2 KW[ L] ) , 

T ITLE 4 ( " AN 3 " .XDL.DRS 3 [L]) )$ 

GENTRAN( LI TER AL ( "C " , CR , TAB , " END I F " , CR ) )$ 

/ */ 

TITLECC'IF (K. EO.KLOW . AND . I . GT. ITE . AND . U . LE . UTPM 1 ) THEN" )$ 

/**/(TITLE 1 (LENGTH( RTT 4 ) , RTT 4 ) , T I T LE 2 ( " PD " , 4 ) ) $ 

/**/( GENTRAN ( LITERAL ( "C" , CR. “C" , TAB . "R 2 KP.CIR" . CR . " C " . CR ) ) . GENTRANOPT : TRUE ) $ 

( GENTRAN( RSET 0 (R 2 KP , R 2 KP ) ) . GENTRAN ( L I T ERAL ( TAB . " C I R »CI RC ( U ) " . CR ) ) )$ 


/* "/GENTR AN (LITERAL! "C " , CR , "C" . TAB , "DAN0FI4" , CR ) )$ 

FOR L : 1 THRU LENGTH ( SD ES 1 ) DO ( PRINT(L), XDL: SDES1[L], T I TLE5 ( “PD " , 4 . XDL ) . 

TITLE4 ( " R2KP " . XDL , DNR2KP [ L ] ) . 

TITLE4 ( " AN4 " .XDL.DRS4 [ L ] ) )$ 

GENTRAN( LI TERAL ( “ C " , CR . T AB . " END I F " . CR , " C " , CR ) )$ 

/* */ 

( GENTRAN ( L I TE R AL ( T AB , " RHSM = RESXD1 + AN 1 XD 1 + AN2XD1 + AN3XD1 + AN4XD 1 “ , CR , 
TAB , M RHSA = RESXD2 + AN1XD2 + AN2XD2 + AN3XD2 + AN4XD2'\CR, 
TAB , " RHST * AN1XD3 + AN2XD3‘ , ,CR, 

TAB, "RHSC = AN1XD4 + AN2XD4",CR, 

TAB, "RHSL * AN1XD5 + AN2XD5",CR) ), TITLEBO )$ 

/* — */ 
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/* ---*/ 

/- WRITE SYMBOLIC PART FOR JACOBIAN */ 

/* — */ 


/-"/TITLET( -SUBROUTINE RE ( J , I , K , JJ , 1 1 , KK , M ) “ . "RE . FOR INCLUDE (INTROM)")$ 

FOR 1:1 THRU LENGTH(RTTO) DO ( PR I NT ( L ) , RRTTO : RHS ( RTTO [ L ] ) . LRTTO : LHS ( RTTO [ L ] ) . 
GENTRAN( LITERAL( "C " . EVAL ( RRTTO ), CR )) , EXEC 1 ( LRTTO) , 

GENTR AN( L I T ER AL ( T AB , "M = 1 ” , CR ) ) , EXEC3(RTTO) )$ 

/- - */ TITLE6( )$ 

/-"/TITLET( "SUBROUTINE R 1 E ( J . I , K . Jd . 1 1 . KK . MM ) « , "R 1 E . FOR INCLUDE (INTR0M)“)$ 

FOR L : 1 THRU LENGTH(RTTl) DO ( PRINT(L). RRTT 1 : RHS( RTT 1 [ L ] ) , LRTT 1 : LHS ( RTT 1 [ L ] ) , 
GENTRAN( L I TER AL ( “C ", EVAL ( RRTT 1 ), CR )) , EXEC 1 ( LRTT 1 ) . 

GENTRAN( L I TERAL ( TAB , "MM * 1",CR)), EXECO(RTTl) )$ 

/* */ TITLEBOS 

/--/TITLET( "SUBROUTINE R2E ( J , I , K , J J , 1 1 , KK , MM ) " , "R2E .FOR" , “ INCLUDE (INTROM)")$ 

FOR L : 1 THRU LENGTH( RTT2 ) DO ( PRINT(L). RRTT2 : RHS( RTT2 [ L ] ) , LRTT2 : LHS ( RTT2 [ L ] ) . 
GENTRAN(LITERAL( “C 11 , EVAL ( RRTT2 ) , CR ) ) , EXEC 1 ( LRTT2 ) , 

GENTRAN( L I TERAL ( TAB , "MM = 1",CR)), EXEC3(RTT2) )$ 

/* */ TITLEB()$ 

/»*/TITLET( "SUBROUTINE R3E ( J , I . K . J J . 1 1 , KK , MM ) " , "R3E.FOR", 1 ' INCLUDE (INTROM)“)$ 

FOR L : 1 THRU LENGTH ( RTT3 ) DO ( PRINT(L), RRTT3 : RHS ( RTT3 [ L ] ) , LRTT3 : LHS ( RTT3 [ L ] ) , 
GENTR AN ( LITERAL( “C ” , E VAL ( RRTT3 ) , CR ) ) . EXEC 1 ( LRTT3 ) , 

GENTR AN ( LITERAL(TAB, " MM = 1",CR)), EXEC3(RTT3) )$ 

/* - */ TITLEB( )$ 

/-■“/TITLET( "SUBROUTINE R4E ( J , I . K , JJ . 1 1 , KK , MM ) " . " R4E . FOR “ . " INCLUDE (INTROM)")$ 

FOR L : 1 THRU LENGTH ( RTT 4 ) DO ( PRINT(L). RRTT4 : RHS ( RTT4 [ L ] ) . LRTT4 : LHS ( RTT4 [ L ] ) , 
GENTRAN( L I TE R AL ( "C " , E VAL ( RRTT4 ) . CR ) ) , EXEC 1 ( LRTT4 ) , 

GENTRAN( L I TERAL ( T AB , "MM = 1",CR)), EXEC3(RTT4) )$ 


/ 


/ TITLEBC )$ 



APPENDIX C 


FORTRAN SOURCE CODE (MACSYMA OUTPUT) 



c 


SUBROUTINE R ( J , I , K , J J , I I , K K , D E R ) 

RMOER . FOR 


1 

2 . 

3 . 

4 . 
8 


i o . 
t i . 
1 2 . 

1 3 . 
14 . 
1 5 . 
1 I . 
1 7 . 
1 8 . 

1 S 
20 

2 1 . 
22 . 
23 
2* 

2 S 

2 S . 
27 . 
2 8 . 
21 

30 . 

3 1 . 

32 . 

33 . 

34 . 

35 . 
3 • . 
37 

3 * . 

31 . 
40 

4 1 . 

42 . 

43 . 
4 4 . 
45 
4 5 . 
47 . 
45 . 

4 9 . 
50 . 

5 1 . 

52 . 

53 . 

54 . 

55 . 
55 
57 . 
55 . 
59 . 
50 . 
5 1 . 

52 

53 . 

54 . 
85 . 
85 . 

87 

88 . 
89 . 
70 . 

7 1 . 

72 . 

73 . 

74 . 

75 . 
78 

77 . 

78 . 

79 . 

80 . 

8 t . 
82 . 

83 . 

84 . 

85 . 

8 5 . 

87 . 

88 . 
89 . 
80 . 

9 1 . 
92 . 
53 . 

94 . 

95 . 

9 8 . 

97 . 

98 . 

99 . 

too . 
10 1. 
102 . 

103. 

104. 

1 OS 
108 

1 07 . 
108 . 

109. 

110. 
111. 
112. 

113. 

114. 

115. 
118. 

117. 

118. 
119. 

1 20 . 
12 1. 
122 . 

123 . 

124 , 

125 . 
128 . 

127 . 

128 . 
129. 

1 30 . 
13 1. 


C 

C 

c 

c 


c 

c 

c 


I NCLUOE { INTRO ] 


938 • P(J, K M2 , I M2 ) 

937 ■ 9 ( J , KM2 . I Ml ) 

938 * 9 l J , KM2 . I ) 

939 • 9 ( J , K M2 ,19 1) 

958 ■ 9 ( JM 1 , KM 1 . I M2 J 

957 * 9 ( JM1 . KM1 , IM1 ) 

951 * 9 l JM1 , KM1 . 1 ) 

959 * 9 1 JM 1 , KM 1 ,19 1) 

981 * 9lJ.KM1.lM2) 

982 « 9IJ.KM1.1M1) 

983 * 9 I J , KM 1 , I ) 

984 * 9JJ.KM1.I91) 

9 8 8 t 9 J J9 1 . KM 1 , 1 M2 ) 

9 87 * 9 | J9 1 , KM 1 , 1 M 1 ) 

988 » 9lJ91.KM1.il 

989 * 9 | J9 1 , KM 1 , I 9 1 ) 

97 8 * 9| J M2 , K . 1 M2 ) 

977 • 9 { JM 2 , K , 1 Ml } 

978 « 9 { JM2 , K , 1 ) 

979 * 9 ( JM2 , K , I 9 1 ) 

981 • 9 ( JM1 . K. 1M2 ] 

982 • 9 < JMt , K. 1MI ) 

983 • 9 ( JM1 . K . 1) 

984 • 9 J JM 1 , K , 1 9 1 ) 

988 « 9JJ.K.IM2) 

987 * 9 ( J . K , I Ml ) 

988 • 9 ( J , K , 1 ) 

989 * 91J.K.I91) 

99 1 * 9 ( J9 1 , K . I M2 } 

992 * 9IJ91.K.IM1) 

913 • 9 J J 9 1 , K . I ) 

954 t 9 l J9 1 , K . I 9 1 ) 

985 * 9JJ92.K.IM2) 

997 * 9 { J92 , K , I Ml ) 

918 * 9 ( J 9 2 , K , l ) 

999 * 9 | J92 , K , 1 9 1 ) 

9 106 i 9 ( JMt , K9 1 . I M2 ) 
9107 ■ 9JJMI.K91.IM1) 

9106 * 9 t JM 1 ,K91 , 1 ) 

9109 * 9 ( JM 1 , K9 1 , 1 9 1 ) 

9111 i 9JJ.K91.IM2) 

9112 • 9jj.K91.IM1) 

9113 * 9 l J . K9 1 , 1 ) 

9114 * 9 J J . K9 1,19 1) 

9 118 » 9 [ J9 1 , K9 1 , 1 M2 ) 

9117 * 91J91.K9t.IM1] 

9118 » 91 J91 ,KM . 1 ) 

9 1 1 S * 9(J9t,K9t , 191 ) 

9 138 * 9 | J . K 9 2 . IM2 ) 

9137 * 9tJ.K92.1M1) 

9138 * 9JJ.K92.1) 

9139 » 9JJ.K92.I91) 

90 


901 » DX 1 I t I ) • ( P88-S+P89 J ♦OX 1NF/X I X I 9 ( J . 1 ) 

902 • DX I 1 JIM! } • J 987+3*988 ) *0K I M9/X I X 1 9 | J . [Ml ) 

903 < DXII | ]M2)«[PtS+S+P87)+0X!NP/XtX]PJJ,IM2) 

904 • OX I I | I )« ( 983*5+984 ) ♦QXINF/X I x 19 ( JM1 , I ) 

901 » DX I I | I Ml ) • J 952*5*983 J *0X I NF/X IX I 9 { JMl . 1M1 ) 

908 ■ OKI I | IM2 )« f 98 1+5 + 982 )+0X [NF/XIXIPJ JMt . IM2) 

907 i OX I I | I ) • ( 9 83 + 3 *984 ) *0X I N9 / X I X 1 9 l J , I ) 

908 « DX! I ( 1 M 1 )a (P82«S+P83)+OXtMP/XIX19(J, IM1 ) 

901 « OKI I | 1 M2 ) * |P51*3+P52)+0XINF/X1X[P(J, 1M2) 

9010 * DX l I ( I ) • J P93 + S+P14 ) +0K I NP/X I X I 9 [ JP 1 . I ) 

9011 * OX l I ( IM1 )• J P92+S+P93 )+0X 1NF/XIX J9 ( JP 1 . 1M1 ) 

9012 * OX I I ( I M2 ) * ( 99 1 *8*982 ) + 0X 1 NF/X I X 1 9 J J9 1 , 1 M2 ) 

9013 * DX! 1( 1 )» (91 13 + 3 + 91 14 )+0XlNF/XIX19 ( J, I ] 

9014 * 0X11 ( 1M1 )*(91 12*5 + 91 I3)+0XINF/XIXJP(J, I M 1 ) 

9015 * OX ! 1 ( IM2 ) • ( 9 1 1 1 +3*9 1 1 2 ) +OX I NP/X ] X 1 9 ( J , IM2 ) 

9018 * X I Y I 9 ( J . 1 )*QXINP*S/X1XIP(J, I ) ♦ ( A J 2 J J ) » (994 + 983*919 - 918 J+AJ1 

I J ) • ( 988*988 - 984 -983 ) ) /2 . 0 

9017 t XIYI9JJ. 1MI )»OX!NP+S/XIXIP{ J, IM1 )+(AJ2!J)+|P83+P82-P81-P87) 

. * A J 1 (J)* ( P88+P87-P83-P82) )/ 2 .0 

9018 « XIYIPIJ. lM2)*OX!NP*S/XIXIP(J, IM2)+(AJ2[J)+(P82+P81-P87-P85) 

. + AJ 1 ( J J *( 987 + 985-982-98 1 )) /2 . 0 

9018 • X1YIPJJM1 , 1 )*0X[NF»S/XIK[9(JM1 , I I * [ A J 2 I JM 1 )« (988+988-954- 

. 9 8 3 ) + A J 1 J JM 1 )*(P84«-P83-P79-P78) 1/2.0 

90 20 « X I Y l 9 | JMl . IM1 J+OXINP+S/XIXIPJJMt , JMl ) * I A J 2 ( J M 1 )*CP64*P87- 

. P83-P52)+AJ1 (JM! )• ( 983*912*978*977 ) ]/2 .O 

9021 i XIYI9JJM1 , IM2)«0XIM9»S/XIXI9(JM1 , IM2 ) + ( A J 2 ( J M 5 ) * (987+988- 

. 982-981 ) ♦ A J 1 ( JMl )* J 9 8 2 ♦ 9 1 1 *977 *978 ) 1/2.0 

9022 * XIYIPJJ, I )+OXIMP«S/XIX!P(J, I ) + J A J 2 J J ) • ( 9 8 8 ♦ 9 8 8 - 9 8 4 - 9 8 3 ) ♦ A J 1 
( J ) * I 954*9 13 - P»9 * 918 ) ) /2 . O 

9023 t XIYIPJJ, IM1)«0X1N9«S/KEX19[J.ZM1 )+JAJ2(J)+(P88+P87-P83-P82) 

. *A J 1 J J )»( 9 53*982 * 958 - 957 )) /2 . O 

9024 i XIYIPJJ. IM2)»0X1NP*S/XIX!P{J. IM2)*jAJ2{J)+[P87+P86-P82-P8l ) 
. *AJ1 J J)* J 9I2*M 1 - 957-988) )/2.0 

9025 * XIYIPJJPt , 1 )*QXIN9*S/XtXl9(J91 , J }*|AJ2(JP1 ) * (988+934 -934- 

. 993 ) * A J 1 (JP1 )• (994*993-989*988 ] )/2.0 

9021 i XIYIPJJP1 . IM1)»0XINP+S/XIXIP(JP1 , IM1 )*(AJ2(JP1 )+(PS8+PS7- 
. 993*912 I *AJ1 ( J 9 1 ) * ( 993*992*988 * 987 ) J/2.0 

9027 « X1YIPJJP1 , IM2)*0XINF*S/XIXI9(J91 , IM2J+JAJ2JJP1 )* (997*988* 

. 992*991 J ♦ A J 1 (J91 )* (932+98 1-P87-P8S) J/2-0 

9028 * XIYIPJJ. I J+OXINP+S/XIXIP(J, 1 ) * ( A J2 ( J ) * (91 15 + 91 18-91 14-91 13) 

. * A J 1 JJ)»(9114*9113-9109-9104J J/2.0 

9021 * X1Y I 9 ( J , JMl )*OXIMP*S/XIXZP(j. IM1 )+(AJ2(J)+(P1 18 + 9 1 17-91 13- 

. 91 1 2 ) ♦ A J 1 [ J ) ■ ( 9 1 13*91 12-9108*9107) J/2.0 

9030 » X I Y I 9 ( J , IM2)*0XINF»S/X]X[P(J, IM2)*(AJ2(J) + (P1I7 + P11«-PM2- 

. 9111 )*AJ1(J)*(9112*-9111-9107-9108))/2.0 

9031 i 0ZIH9*jA1K{K)*(989*988-9 84-983)*A2K{K|*( -989-988*91 14*91 13) 

. J/2.0 

9032 « 02INP+{A1K(K} + (Pt8 + P17-PI3-PI2)+A2K(Kl*( -951-987 + 91 13 + 91 12) 

. ) /2 . O 

9033 • Q2IMP+(A1K(K)«(P87+P88-P82-P81 )*A2K(K)*(-987-988 + 91t2 + 91 11 ) 

. ) / 2 . O 

9034 * 021 NP*(A1K( K) ■ | 984*983-959-958 ) * A 2 K ( K}« ( -984-983 + 9108*9108 ) 

- ) / 2 . O 

9035 « Q2INP+(A1K(K}+ J983*952-958-957)*A2K( K 1 * ( -983-982 + 9108 + 9107) 

. ) /2 . O 

9038 • OZIMP+(AtK(K)+ (952+981 -PS?-PS8)+A2K(K)+[ -982-951+9107+9108) 

. ) /2 . O 

903 7 « 0ZIN9+(A2K(KM1 I • f 9 8 9 ♦ 9 8 8 * 9 1 4 - 9 8 3 ) ♦ A 1 K ( KM 1 ) « ( 9 • 4 ♦ 9 5 3 * 9 3 9 ■ 9 3 8 

. ) ) /2 . 0 

9038 * Oil NF ♦[ A2KJ KM !)*(985«987-9l3-982)+A1K( KM 1 ) *(983 + 9 82 -938-937 

. n/2 o 

9039 t Oil NF*(A2K( KM 1)»(987+988-982-9tt|*A1Kj KM 1)*(9 52 +981-937-938 

. J ) / 2 . o 

9040 • QZIMP+(A1K(K)+(P84+P93-P88-P8l)+A2K(K)+( -984-993+9118+91 18) 

. 1/2.0 

9041 « 0ZIN9*(A1K(K) + (983 + 992-988-987)+A2K(K)*{ -983-982 + 91 18 + 91 17) 

. ) / 2 . O 


9042 » OZINP+J A1 K( K )*( 952+99 1 

)/2 . O 


987-958 ) + A2K ( K | * 

C-1 


-982-95 1+9 1 17 + 9 111) 
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P 0 4 3 » 0ZINFt|A1K(KPl)*|-M9-M**M14»PH3)*42K(KM )»(M3I*M3I- 

. PI 1 4 * P 1 1 3 ) 1/2.0 

PD4 4 * 0:illF*|A1K(KM)*l'M»*M7*4UJ*mj)4Aait(KPl)*tP13l4M37* 

. MU-P1I2D/2.0 

*045 • 02INF*( At Kl KP I ) « ( **C7-*CC + *1 124* t I I )fA2K t KP I »* (* 2374* 13C- 

. PI 1 2 * P 1 tl 1 ) / 2 . O 

P 0 4 4 * At t A ( J , I 1“ (DXI I ( I ) • I Pli*S*P49 ) »OX I NF/XI X 1 P ( J . I 1 ) ♦ X 1 Y I P ( J . I ) 

. “(XIYIPU, I J«OXINF*S/XIXIF(J. I )♦( A J2 t J ) ■ (P*4*P53-F89-P»a I »AJ 1 IJ ) • 
. IP49+P64-P44-PA3) )/2.0) 

P 0 4 7 * At 1R( J. IM1 J» (DXI ItlHI ) * ( P • 7 » * ♦* • * ) *0 X I N F / X I X I P ( J. IMt 1)4 

. XIYIPI J, 1M1 ]«(XiriF| J, IM1 )»PXINF*S/1U)(IP| J. IMt )*(AJ2[ J)*|FI3*P»2- 
. P84 - PB7J*AJI (J) ■ (P44*PA7-P43*P42 ] 1/2.0) 

P 0 4 4 * A t 1 R l J , IM2 1 • ( DX 1 It IM2 ) * C P4C-S4FI7 ) *OX I MF /X 1 X I P ( J . IM2 ) ]* 

. X 1 Y ! P | J , I M2 ) * I X 1 Y I P ( J , IM2)»0XIHF*S/X1X!PIJ, IM2)MAJ2(J)» ( P 9 24*9 1 - 
. FB7*FII)+AJt 1 J1«|F*7 + PII-PI2-F»1 1 1/2.0) 

F 0 4 9 * At 1RIJM1 , I )■ (DXJ I ( l)«(P43*S4P4*)40XINP/XIXIP[JM1 , I ) ) ♦ X I Y I F [ 

. JM1 , I 1*(XIY!F(JM» , I )»0XIMF»S/X1XI*| JM1 , I ) ♦ ( A J2 ( JM1 )* (F49*F86*FC4- 
. F 8 3 ) 4 A J t (JM1 )■ (P844P83-F79-F78) 1/2 0) 

*050 « A11RIJM1 , IM1 )■ (DX!1( IMt |*|F42*S*P43l*0XIMF/XIXIP(JM1 , IM1 | )♦ 

. XIYIFIJMt . 1MI )* l X I Y I P ( JM1 , |M1 1»0XIMF»S/XIX1F|JM1 , IM1 ) ♦ ( AJ2 [ JM1 J * I 

. FI|tP|7-PI3'PI2 ) 4 A J t I JM1 )*(F834F82-F78‘F771 J/2.0) 

F 0 5 I « At1AtJM1.IM2)*(0XIItIM2j*|FCt**4F*2l4 0XlMF/XIXIFtJM1,IM2l)4 

. XTYIFUMI , IM2)»1XIYIP(JM1 , 1 M2 I « 0X1 NF i S /X I X IF UM t , IM2)4(AJ2lJM1 I « ( 

. F874FC8-FI2-P41 ) 4 A J 1 ( J M 1 ) » ( F I 2 »F 8 1 ■ F77 * * 7 I ) )/2 . O ) 

*052 * A 1 1 R ( J , I )* (OX! I I I )»(P83*S4P$4)4QXINF/XIXIP(J. I ) )4XIYIPU.I) 

. •|XIYIF{J,l)*0XIHF*$/XIXIP(J,I)4|AJ2lJ)*|FCt-»P«l-F|4-P«3)4AJl|Jl* 

. t FS44FC3- Fit -PS* 1) /2 . O J 

F 0 5 3 • A 1 tR ( J, IMt 1 * ( OX I ] ( IM1 )« | F82»S4P83 1 4 0 X I MF/X I X I F { J . IM1 J 

. XIYIPU, IMt ) » ( X I Y I P (J . 1 M 1 )»QXINP“S/XIXIP|J. IMt ) ♦ ( AJ2 | J ) * I P II^PI? ■ 
. P C 3 • P • 2 ) 4 A J t I J ) ■ I FB34P82*P54*F571 1/2 .0) 

F 0 5 4 « A 1 1 A (J , I M2 ) * ( DX 1 I ( IM2)»|P*I*S*PI2)+0XINF/X1XIP|J, I M2 I J ♦ 

. XIYIPU. I M2 ) * ( X I Y ] F ( J , I M2 I *0X 1 NP ■*/ X I X 1 F | J ( 1M2)*(AJ2U)» [ PC74P9S - 
PC2*P8t )4AJt(J)*|PI2*P|1 *P5T-PSCj 1/2 .O) 

F 0 5 5 « AtIBtJPI , 11M0X1I I I )«|PI3»S*PI4)40XINF/XIXIF( JPt , I | )4XIYIF( 

. JF 1 , I )*(XIVIP(JPt . I )»OXIMF«S/XIXlF| JP1 , I J * I A J2 [ JP 1 ) « |Pt*4P98-P84* 
. P93)4AJ1|JP1)»(P944P13-P4I-PA9))/2.01 

F 0 5 8 « At 18 ( JF 1 , IM1 )* [DXI I ( IM1 )* |P82*S + Pt3l+OXINF/XIXIP(JP1 , IMt ) ]♦ 

. XI YIP1JP1 , IM1 )*IXIYIP(JPt , 1M1 )*0XINF»S/XIXIF(JF1 , IMt ) 4 ( A J2 ( JF 1 ) * ( 
F984F97-F93-F92)4AJt [ JF 1 )“(P*34P»2-P**-P*7| J/2.0) 

F 0 5 7 « At1B(JP1,IM2) , IDXII|IM2)»[P11*S*Pt2)*OXIMF/XIXIPt<JP1 l I M2 ) ) ♦ 

. XIYIPfJFt , } M2 ) * l X I Y I P I JF t , IM2)*0XIXP»S/XIX1FIJFI . IM2) + {AJ2|JF1 J * I 
F974pf8*P92'P91 ) + A J t IJF1 ) • ( FI2+PI 1 *F«7 -F4C ] J/2 .0) 

P 0 S 8 « AIIRf J. I )» 10X1 I ( 1 )*|Ftt3«S*F1 14)40XIKF/XIXIP(J, 1 ) ) 4 k I Y 1 P | J . 

I J»(XIYIF(j, 1 )»OXINF*S/XIXIF|J, t | * ( A J2 ( J ) • I P t t9*P1 1I-P1 1 4 * F t 1 3 ) ♦ 

. AJtU)*[Ptt4*F1 13-F10»*F10«) )/2.0) 

F 0 5 9 * At 1 R U . 1M1 ) » ( OX 1 I ( IM1 ) • ( F t t 2»5*F 1 1 3 ) 40X I NF/X I X IF ( J . IMt ) ) 4 

. XIYIP(J. IMt )*(XIY1P( J, IMt )“QX1NF“S/X1KIP|J, IM1 J*(AJ2(J]«|Pt 144 
. Ft I 7 • P 1 1 3 * P 1 1 2 ) ♦ A J 1 ( J ) * ( P t 1 3 ♦ F 1 12-P104-P107) J/2 .0) 

FOCO ■ A 1 1 R( J, IM2 ) • ( DX I I( IM2 )« I F t 1 1»*4P1 1 2 J *0X IMF/X I X l*t J . 1M2 J )4 
. XIYIPU, IM2)*(XIYIF( J, IM2)*0X1NP«$/XIXIF| J, 1M2)*(AJ2[ J)*|PH74 

. Ft 1 8 - F t 1 2 • P 1 t 1 ) ♦ A J 1 ( J I • (Ft 12 4*1 t 1*F 107 * P 1 Ol 1 J/2 .0) 

FOCI • XIYIFIJ, I ) * ( 0 X I J ( I )• |FII*S + P4t I 4 0X IMF/X I X I F ( J , I) ) 4X1 Y IF [ J , I 
. )*OXINF«S/XlXIP|J, I ) 4 ( A J 2 [ J)* I P944P93-P4t*P84) , *AJ1 ( J ) • ( FII + PII- 
. F C 4 • F 4 3 ) J/2.0 

F 0 C 2 « XIYIFIJ, IM1 J*|DXII | IM1 )*(F87»$ + PI4)40XIMF/XIXIP| J, IM1 ) )4 

. XIYIFIJ, IMt )*0XINF*S/X1XIP(J, IMt )4(AJ2(J)»(F*34F92-FC»*F87J*AJt{J 
J * I F6C+FC7 -F83 - F 8 2 ) ) / 2 . O 

F 0 C 3 » X I Y I F I J , IM2 ) • I DX 1 I l IM2 ) • I F88-S4P47 J40X 1 MF/K I X I P [ J , IM2 ) ) ♦ 

. XIYIPU, IM2)*0XIMF*S/XIXIP|J, I M2 J ♦ ( A J2 ( J ) • I PI24P9 1 -P«7*P4l)*AJlU 
) ■ I FA74FAC -FC2 * FI 1 ) ) /2 . O 

F 0 C 4 « XIYIFIJMt , I ] * I D X I I ( I }“IP83“S4P44)40X1NF/XIXIP(JM1 , I ) J+XIYIP 

( JM 1 , I)«0XINF*S/XJXIPlJM1 ,1 )4lAJ2(JM1 | * ( P 11 +P* I • P 14 * PI3 ) ♦ A J I IJM1 ) 
. t [ FI44p|3 • P7t * F7I | J/2.0 

FOBS • XIYIFIJMt , IM1 ) « I 0 X I T I I M 1 ) « | PI2 *S ^P»3 ) *0X ! XP / X I X I F ( JM 1 , 1 M 1 )) 
. 4XIYIPIJM1, I M 1 )»OXIMF«S/XIXIPlJM1 ,IM1 ]*(AJ2( JMI | * I P II + P 17 * P 13 - F*2 
)4AJ1 ( JM 1 )»|PI3 + PI2-P7I*P77) J/2.0 

FOCI » XIVIFIJMI , I M2 J • I OX I I { I M2 ) » I P 4 t •$ »P4 2 I *0X I XF/ X I X I F ( JM I , I M2) ) 
. 4XIYIFIJM1 , IM2)“0XINF*S/XIXIP | JMt . I M2 I ♦ ( A J2 ( JM 1 )«(P47 + P6I-P12-PB1 
) ♦ A J 1 (JMt ) “1*124**1 - *77**7*) J/2.0 

F O C 7 » XIYIFIJ, I ) * ( 0 X I I ( I )» |PI3*S*P»4)+0KINP/XIXIP(J, 1 ) ) 4X1 Y I F ( J . I 

)*0X1NP*S/XIXIF| J, I )4fAJ2|JIMPI»*P**-P«4-PS3)4AJ1 ( J ) « | P 14* P 13 • 

. P5I*PSC) J/2 .0 

FOCI « XI Y I F ( J , IM1 ) » ( DX 1 1 ( IM1 ) “ l FC2-J4P 83 } 40X I NF/X 1 X 1 F ( J , IMt ) ) 4 

. XIYIFIJ. IMl)“0XINF»S/XIXIP(J,IMlJ*(AJ2(J)“tFt*4F87*FC3-F«2)*AJt(J 
)*(PB34PC2*Pi**PS7) J/2.0 

FOCI * XI Y IF ( J , 1 M2 ) • t DX I 1 ( IM2 ) » I *• 1 » 5 +P 82 ) *0X 1 NF/X 1 X I F | J . IM2 ) ) ♦ 

. XIYIFIJ, IM2)»0XIXF'S/X1XIP [ J, IM2) *(AJ2( J)» ( PI7*PII-PC2-FI1 )*AJI | J 
) • ( F C2+FC t -P57 - PC C ) ) / 2 . O 

p 0 7 O ■ X I Y I P ( JP 1 . I 1MDXIM I ) • I P93*S4PIA I ♦<? X I N F / X I X IF( JF1 , I) ) *X I Y 1 P 
( JF t , I J*0XINF*S/X1 X I F ( J* 1 . I ) ♦ t AJ2 ( JF t J« ( F I I Oil ■ P 14 ■ PI 3 ) *A J 1 (JF1 ) 
. • (F9*4P93-FC9-F*C) }/2 .0 

F 0 7 1 ■ XIYIPIJF1 , IMt l-IOXIII 1M1 ) • ( P 92*S +PI 3 ) *0X I NP / X I X I P [JP I ,IM1 I ) 

. ♦ X I Y I F | JF t , I M 1 )“OXINF«S/XIXlF(JPt , IM1 ) ♦ ( A J2 t JP t )«{P9C4p97-P13-P«2 

J ♦ A J t (jFt J»IF934P92-FC8-FC7) J/2.0 

F 0 7 2 * XIYIPI JP1 , IM2)“I0XII11M2)*IP*1“S4P12)*0XIXF/XIXIP[JPT 1 I M2) ) 

. *XIYIF(JF1 , IM2 ] “OX INF«$/XIXIF( JFt , I M2 ) + (AJ2lJP 1 )“ ( P97 + PII*FI2*PI1 
) 4 A J 1 ( J F 1 )«(P92*P9 t -PC7-P4C) J/2 O 

F 0 7 3 « XIYIFIJ, 1 ) * ( DX I I ( 1 )«|F113*S*P1 t 4 ) *0X l NP/X I X I P ( J , I ) )»XIYIF(J 

. , I )*0XINF“5/XIXIF(J, I )+{AJ2(J)*(Ft 1I + P1 II-F1 14-PI 13 )4AJ1 lJ)*(Pt14 

. 4p 1 t 3 - P 1 09 -P lO* ) ) /2 . O 

P 0 7 4 * XIYIPU, I M 1 )» { 0 X I I ( IMt }• IP1 1 2 * S ♦ F t 1 3 ) *0X I NF / X I X I F (J, IM1 ) }4 

. XIYIFIJ, IMt )*OXlMP*S/XIXIPlJ, IMt ) ♦ ( AJ2 ( J ) • ( M t * ♦ F 1 I 7 - F 1 t 3 * P t 12)4 

. AJ1 U)*(P113*F1 12*FtO«*Ft07t )/2 .0 

P 0 7 5 * XIYIFIJ, IM2)*tOXI 1 I I M2 ) * (Ft 1 1 •$♦* I 12)*OXINP/XIXIFIJ, IM2) !♦ 

. XIYIFIJ, I M2 ) “OX I NF*S/X l X I P I J , IM2 ) * ( AJ2 ( J ) * ( * M 74P I 1 I - F 1 1 2 * F t I 1 ) 4 
. AJ1 (J)*(F7 t 2 4P t 1 1 • F 1 07 *P l 01 | J/2.0 

RIF.RIM.RJ.RK.RJF.RKF 

TO*(C1*IF017“FOI24F02«P0474P032»*2)41)“-C2 

R 1 P * SG ( I ,J, K)“ ( TO*S+ (Gt“ I POt l*P04t*P0t“F04C4F031*“2 1*1 ) * *C2 ) *T0 
TO* ( G t • IF014»F0834F03«F0444F033*»2J41 )““G2 

R I M * S G ( I M 1 , J , K ) ■ ( TO“S4 I 6 1 ■ I P017“P0824F02“F047 + P032“*2 ) ♦ 1 ) *»C2 1 4T0 
TO* (G1“(P017»PO«24P02*P0474P032“»2)41 J““G2 
Tl * ( Cl * (P01**P0834PQ3“P0484PQ33“*2 ) * 1 )““C2 
T 2 * I G t » ( P020“P08I4P05»P0504PQ35“»2 J ♦ 1 ) » ■ C2 
T3» I Gt*lP02t“F0i*4FOB1*F084F038“»2)4l ) ■ • G2 

RJ* (SGI IM1 , JM 1 ( K J * ( T 3 * 5 + T 2 ) 4J G I I , JM 1 , K ) • ( T2 * S ♦ l C 1 • ( FO 1 l , POI44P04* 

. F0494F034**2 ) ♦ t ]»«C2)*S6(IMt # J a K)«fT!BS*TO)*SCt 1 , J , K) » I T0“S4| 6 1“ ( 
. F0 1 ••FOCI 4*0 14F0*«4*03 1 ■ * 2 ) ♦ 1 )«*G21^T3*T24T!4T0)/* .0 
TO ■ ( Cl * (PQ1?“P0B24P02*PQ474P032*“2}4 1 ) • • G2 
Tt • I C 1 * I FO 1 4“F0C34F03*FD4C4*033““2 J ♦ 1 ) ••G2 
T2* I Gt • ( F053“POI4P023*FOI*4P03C“*2) * 1 ) • “G2 
T3* ( G1*( F054“P094P024»F08*4P039““2)4 1 ) • “ G 2 

RX> ( SCI IMt . J . KMt ) • I T3*S4T2 ) *SC I I , J, XM1 ) • ( T2»S* ( G 1 • { F 0 S 2 • *07 4 * 0 2 2 * 

. FOC74F037»«2)4t ) * * G 2 ] 4 S C I 1M1 , J , K ) * ( T 1 “S*TO J *SC ( l ,J, K ) * I TO»S* | C t * ( 

. F01C*F0Ct4F0t*F04C4F03t**2)41 ) » *C2 I 4T3*T2>T I *TO ) / 4 .0 

TO* (C1*(P017»POI24P02“P0474pQ32*“2)4l ) • • G2 
Tl « (Gt“(F01**F0B34F03»F0484F033“*2j41 J*»G2 
T2* ( C t * I P02B*P07 t 4P0 I 1 * POS » + P0« I *»2 I ♦ t J*“G2 
T 3 * (G1*(F027«F072*F012-F0*74F0*2**2j4l J“*G2 

RJP«ISC(IM1.JP1 1 K)»IT3*S*T2J4SCI1 1 JP1 > K)»(T2*S4(C1“|P025*PC70*f6iO 
. ■F0154P040““2)4t ) « “G2 ) 4*C I IM1 , J , R | * ( Tt «S*TO ) +SG ( I , J , X ) • ( TO»l*( 61 • 

lFOtC*FOC14FOt«F04C4F03t“«2)4t)»»G2)4T3+T24Tt4TO)/4.0 
TO* (C1«(P017“POC24P02*P0474PQ32*«2)41 )»»G2 
Tl* (G1*(FOtl*FOI34F03*F04l4P033* , 2)*1 ) • • G 2 
T2* (G1*(P029“P0744p0t4«P0S9*P044»*2l41 J • * G 2 
T 3 * (Cl •IF030*F07|4F0 1 S*F0CO*FO4J**2 ) ♦ 1 J»»G2 

RKP« (5GIIM1 , J.KFt )*[T3*S*T2)*SCI I, J.KFt |“(T2*S4(C1*|F02l*F0734F0t3 
. •P0CC4PQ43«“2)4i )**C2)4SG(IM1.J.K|*(Tt«S4TOj4SG( 1 , J , X ) • ( TO*l* ( C I • 

IF0tC“F0Bl4pqt“F046 + F03t*«2)4t | » • G 2 ) 4T3 + T24T 1 4T0 ) / 4 .0 


C 


214 
2SS 
2*4 
247 
241 
244 
270 
27 t 

272 

273 

274 

275 
274 
277 
27* 
274 

240 
2* 1 
24 2 

243 

244 . 

245 
244 
247 . 

241 . 
244 . 
240 
24 1 . 

242 

23 3 

244 . 

245 . 

24 4. 
247 . 
24* . 
244 . 

300 . 

301 . 

302 

303 

304 . 

305 . 
304 . 
307 . 
304 . 
304 . 
3 10. 
3 11 

3 12. 
3 13. 
3 14 
3 15. 
3 11. 
3 17. 
3 14. 
3 14. 
320 . 
32 1 . 

322 . 

323 . 

324 . 

325 . 

32 5 . 
327 . 
324 . 
324 . 
330 . 

33 1 . 

332 . 

333 . 

334 . 

335 . 

33 4 . 
337 . 
334 . 
334 . 
340 . 

34 1 . 

342 . 

343 

344 . 

34 5. 

345 
347 . 
34* . 
34$ . 
350 . 

35 1 . 

352 . 

353 

354 . 

355 
35 1 
357 . 
354 
35 4 . 
340 . 
34 1. 
312 . 

3 13 . 
3*4 . 
3*5 . 

3 * ( . 
317 
3** . 
3*4 . 
370 . 
37 1 . 

372 . 

373 . 

374 . 

375 . 
37* 
377 . 
37* . 
374 
3*0 . 
3* 1 . 
3*2 . 
3*3 . 
3*4 . 
34* . 
34* . 
347 . 
344 
34* . 
340 . 

34 1 . 

342 . 

343 . 

344 . 

345 . 


C DEI 

C P3S 

IF (CNDt II , JJ,KK, 1H2.J, KM2 ) J THEN 
P034P3S • - ( 1 . 0/2 . ©» A 1 K( KMt J J 

TO* (Cl* ( FDI4*P04*FDJ4*I0I>*I034**2 J ♦ 1 > *• ( C2 - 1 ) 

R K P 3 4 « ( 2*C1*C2*SC| IMt J*P034*P034P34*TO*S*2*C1*C2»P034* 

. F03IF3MT0 ) /* . 0 

■•."•■I l p »**F*3)*RKP3**TA33M+2*XIXXI(J. I)*OZINP»RKP3»/OZETAC(K) ) * 
DER * RESF3I 

C P 3 7 

ELSE IP (CNDI 1 1 , JJ.KK, IMt , J , KM2 ) ) THEN 
P034P37 • * I 1 .0/2 . 0*41 K( KH1 ) | 

P034P37 . * { 1 .0/2 . OtAIKlKMt | ) 

T O * G 2 * 1 

T1« (Gt»(P053*P04*PQ23*PO** + P034«»2)*1 ) * ■ TO 
T 2 * 2 ■ G 1 ■C2*P034*P03SP37*T 1 

T3» ( G 1 * ( P054*P09+P024*PO*4+P03S**2 I ♦ 1 ) » « TO 

*KP37i ( 5 G ( IMI ,J, KM1 )*[2*Gt*G2»P034*P039P37*T3»S*T2)+2»G1*C2*SG( I P J 
, KM 1 ) » p 0 3 * ■ P 0 3 * P 37* T 1 * S + 2 * G 1 ■ G2 ■ P 0 3 4 ■ P 0 3 4 P 37* T3 ♦ T2 ) /4 O 
RESP37* [ f P4*-P*3)*RKP37«TA33M+2*XIXXtt J. I ) » 0 2 I N F • RKP 3 7 / 0 ZE T AC { It ) )• 

OER ■ RESP37 

C P 3 4 

ELSEIP |CND( II, JJ.KK, I, J.KMJt) THEN 
P037P3* » •(l.0/2.O»A1K(KHll) 

P034P3* » * ( 1 . O/J . 0*A 1K( KM1 ) j 

TO * G2 - 1 

Tt ■ [Cl* ( P0I3* P04 + PD23"PO»l + PO3t**2 J ♦ 1 ) * * TO 

RKP34* ( S C ( J , J , KM1 ) * ( 2*G 1 *G2*P034*P034P34* T I • S ♦ 2 • G 1 *G2*P037*PC37P3I 
. « (G1* [ P052*P07-*P022-P0«7^P037**2»*1 J-«TO)*2*C1*G2*SC( IM1 , J KMI )* 

. P034* P034P3 4* T 1 +2* G I *G2 • P034 ■ P038P3 4 * T 1 ) / 4 . O 

*V2^ 3 ** ' * * * * ~ * * 3 * *RKP34*TA33M+2*X I XX I ( J , I ) »0ZINP*RKP34/DZ*TAC(K) )* 

OER ■ RESP3* 

C P34 

ELSEIF ( CND [ II , JJ.KK, I P 1 , J , KM2 ) ) THIN 
P037P34 * • { 1 . 0/2 . 0*A 1K( KMt | J 

RKP3XG 1 -C2*SG( 1 , J.KM1 I « P037* P 037P34 ■ ! G1 • ( P 0 S 2 • P 07 ♦ PO 2 2 • P 0 • 7 ♦P 0 3 7 
. • • 2 ) ♦ 1 } • * ( G 2 * 1 ) / 2 .0 

KESP34M |PU-PI3).RKP3*«TA33M*2iXIXXIlJ,I|*OZIHF«RKP3l/D2ETAC(X))» 

OCR i RES P 3 9 

C PS K 


C P 5 7 


C Pt 4 


IlSUP {CND( ] I .JJ.KK. I M2 . JM I , KMI ) ) THIN 
P024P5I * • I 1 . 0/ 2 . 0*AJ I ( J ) J 

P034P5I « •( 1 .0/2.O*A1K(K)i 

P054PBI * * ( 1 . 0/2 . O* AJ 1 ( J j * X I V I P [ J . I M2 |) 

P044PS* » - { 1 . 0/2 . O* A J 1 ( J ) | 

TO* [ G t * (PQ21*P0lt-»PO51»POS + PO3***2}*] ) ** ( C2 - 1 ) 

RJPSI* { 2*C 1 *62* SC 1 IMt , JM1 , K J * P 03 • • P 0 3 • P S * * T O- S • 2 - C 1 *C2*P03I* 

. PQ3IPI«*T0)/4 .0 

TO*P054PB5*P05*P024*P0C5P54^P024P5Kap0*| 

T1» [ Cl* ( P0l4*POf+P024*PQB4*P034**2)+ I )»• |C2* 1 ) 

RKPS4*|C1*C2*SC( IM1 , J , KM1 )«T0*Tt«S*C1*C2*T0*Tl )/4.0 

* eS P * • * f f P*4 *P*3 ) »RKP5*»TA33M+J*X I XX I [J, I )*QZINP*RKPS*/DZETAC(K) )• 
V2^J*(*jPJ|»T*2tM»( (PI»-P»»*P*4-M3)«TA2 2*|F»I-P47*P|3*M2]*TAI 1 ) 
. * ( PIS - P43 ) * R JP5 4 • TA22M J 

DER * RESP5S 


E15EIF | CND ( l I . J J , KK . IM 1 , JM 1 , KM1 ) } THEN 
■I 1 .0/2.0*AJ1(J|| 


- ( 1 .0/2 . O* AJ1 | J j J 


* I 1 

* I 1 
- ( 1 


0/3 0«A1K|K|) 

0/2.0*A1K(K) ) 

0/2 . O* AJ 1 [J)*XIYIP(J, IM1 J 1 
•I 1 . 0/2 . 0*AJ t (J)*XIYIP{J, I M2 ) ] 
I 1 . 0/2 . O » A J 1 ( J ) ) 

{1.0/2. O-AJ 1 ( J ) ) 


P023PS7 
P024P57 
P035P57 
P03SPS7 
P0B3PS7 
POI 4P57 
PO • IPS 7 
P 0 I 4 P I 7 
TO * C2 - 1 

T 1 * [ Cl* ( P020* P0«S*P05*P05O*P035**2 )♦! ) * * TO 
T2*2*01*C2*P035*P03SP57»Tt 

T3» [61* l P021*P04*+P05 1 *PQV+PC3I**2 ) ♦ 1 J**TO 

RJP57* (SC[ IM1 , JM1 ,K)*{2*C!*C2*P03l*P03*P57*T3*S+T2)+2 a C1*G2 s $G( I . 

JM 1 , K ) • P 03 5 ■ P03 i PS 7 • T 1 *S + 2* C t • C2 * P 03 *• P 0 3 *PS 7* T3 + T2 ) / 4 0 
TO « P0S3P57* P0I*PD23» P 0 « • P 5 7 ♦ P 0 2 3 P 5 7 * P 0 4 * 

T 1 * G2 - 1 

n»(C1»(P0S3»PD»*P023*P0«4»P03«**2)*1)**T1 
T3 * G 1 *G2* TO* T2 

T4*P054P57*PO*»P024»PO*tP57*P024P57*PO*4 

T5»(G1«(P054*P04*P024*PO«9+P03S**2)+l)**Tt 

R KP 5 7 * ( SC [ IM! ,J,KM1 )a|G1*C2*T4*Tf*$+T3)+Ct*G2*SG( ] J KMt )*T0*T2*S* 
C 1 • G2*T4*T5*T3 ) /4 O 

* IS P * 7 * * • P*4-PI3)*RKPS7*TA33M+2*X1XXI (J, I }*0ZINP*RKP57/DZETAC(K) ]* 
V2 + S*|RJP57*TA2lM*({Pai-P*4*PS4''P43|*TAI2*(PS4-P47 + P43»P42)*TA11) 
♦I P44*P43 ) *RJP57*TA22M) 

OCR * RESPI7 


C 


c 


P 5 4 


PCI 


ELSEIF 
P022P54 
P023PS4 
P034P54 
P035PS4 
P 0 5 2 P 5 4 
P053P54 
POf 7PS4 
P 0 * * P 5 * 
TO • G2 * t 


[ CND ( 2 I . J J . KK , I . JM1 . KM1 ) | THIN 

* -[ 1 .0/2.0*AJt( J)| 

* - (10/2 0* A J 1 ( J ) } 

* *( t.O/2.0*AIK(K)| 

* • ( 1 . 0/2 . O* A 1 K | K ) J 

* - I » ■ 0/ 2 . O* AJ 1 { J ) • X t Y I P ( J , I J ) 

■ * I 1 • 0/2 . 0*AJ 1 | J I *X I Y I P [ J . IM1 ) J 

* - I 1 ■ 0/2 . O* AJ 1 | J ) ) 

* *1 1 . 0/2 . 0* A J 1 ( J ] ) 


T 1 • { G1* (PQ20*P045*PQS*P050+P03S**2 J ♦ 1 ) » * T 0 

K JFSI • ( SC I I , JM! ,K)* (2*C1*C2*P035*P03SPI4*T1*S'*2*GI*C2*P034*P034PS4 
• , (C1*(P01I«POI4*P04»P044*F034**2)*1 )**TO)*2*C1*G2*SC{ IM1 , JM1 K)« 

P035 • P035PS t * T 1 ♦ 2 « G 1 * C2 « P Q 35 * PQ3SP5* * T 1 ) / 4 , 0 
TO*P053P54*P04+P023*P0l4P5l*P023P5l*P0ia 
T 1 * G2 - 1 

T 2 ■ ( G !■ I P053*P04*P023*P04**P034»*2 ) ♦ 1 )**TI 

* K p * * * [SG( ! , J, KMt )* [ C1*C2*T0*T2*S*C1*G2* l P052P54*P07*P022*P0I7P54* 
P022PI4*P067 ) » ( C 1 • [ POS2*P07*P022*P057+PQ37**2)*t )«*TI l + G1«C2«SG{ 
IM! , J , KM! )*TO«T2*C!*C2*TO*T2l/4 .0 

RESP54*{ (P*a-P*3)»RKP5*»TA33M+2*XIXXI[J, I )*QZINP » RKP 5 4 /0 2ETAC I K ) ) • 
V2*>S« | RJP54* TA2 !M» ( (P09-P4*«P44>PI3)«TAI2*{Pt*-P47-4PS3-P42)*TAl 1 I 
*[ P44*P43 J *RJP5«-TA2 2M) 

DER • RESPS* 


ELSEIF [ CND ( I I , JJ , KK. IP 1 , JM1 , KM1 ) J THEN 

P022P54 * * ( 1 . 0/2 . 0*AJ 1 [ J J J 

P034P54 « - ( 1 . 0/2 . 0*AIK( K j J 

P012P5B • •( 1 . 0/2 . 0*AJ I | J ) * X I Y IP( J , I] J 

P047PS4 * • [ 1 . 0/2 . 0* AJ 1 [ J J ) 

RJPS9«Gt«G2*SG( l , JM1 ,K)*PG34*P03«P59*(GI*(P019*PO*4+P04*P044*Pa34 

. * «2 J ♦ ! J •• 1 62 - 1 ) /2 . O 

RKFII *6 1 *G2»SC ( I , J , KMI )*(PDS2PS4*P07+P022*P0*7P*4*P022PI4*P0*7)*l 
G 1 * ( P092*P07«PD22*P0*7-*’P037** 2 ) ♦ 1 | * * ( G2 * 1 >/4.0 
RESPB I > ( (P4«-P43)*RKP*4*TA33M*-2*XIXXI|J. I )*QZIMP*RKP«*/OZETAC(K) ) * 
. »2*I«|Rjm*TA21M*( IF**-P»**P«4-P43)*TAI2-»(P**-P*7*P*3-P*2)*TA11 ) 

. ♦{ P44 -P43 J«RJP5*»TA22MJ 

DIR * RESPS* 


ELSEIF (CNDI I I . JJ.KK, !M2, J.KM1 ) | THEN 
F0IPI1 • 0X1 I | I M2 J «S 
PD24P41 . { -AJ2I JI+AJ1 ( J))/2 .0 

P033PS1 . • ( 1 .0/2 0*A1K(K ) \ 

P034P41 * { - A2K I KMI |4AtK ( KMI ) J /2 . O 


C-2 


ORIGINAL FAC- :u 

OF POOR QUALITY 



3 U 
397 . 
3I< . 
3>l . 

400 . 
40 1 . 

402 . 

403 . 

404 . 

405 . 
404 . 
407 . 
40* . 

401 . 
4 10. 
4 11. 
4 12. 
4 13. 
4 14. 
4 11. 
4 1 6 . 
*17. 
4 1*. 
4 1 S . 

420 . 

42 1. 

422 . 

423 . 

424 . 
4 2 S . 
42* . 

427 . 

428 . 

421 . 
4 30 . 
4 3 1. 

432 . 

433 . 

434 . 
4 3*. 

43 1. 
4 37. 
43* . 
4 3* . 
4 40 . 
4 4 1. 

44 2 
4 4 3. 
4 4 4. 
44 S . 
44 C . 
447 . 
44* . 
44* 

4 *0 . 
4*1. 
4*2 . 
4*3 . 
4*4. 
4 S $ . 
4SI. 
4*7. 
4 * S . 
4 S * . 
4*0 . 
4*1. 
4*2 . 
413 . 
4*4 . 
4 4* . 
4 • C . 
4*7 . 
4 * * . 
4 • t 
470 . 
4 7 1. 

472 . 

473 . 
4 74. 
47* . 
47* . 
477 . 
47* . 
47* . 
4*0 . 
44 1 . 
4*2 . 
4*3 . 
4*4 . 
4*5 . 
4 * S . 
4*7 . 
4** . 
4 * * . 
490 . 
49 1. 

4 9 2. 

493 . 

494 . 
4*5 . 
49 S . 
49 7. 
49* . 
4*9 . 
too . 
*01. 
*02 . 
*03 . 
*04 . 
*05 . 
BO * . 
*07 . 
*0* . 
*09 . 
*10. 
*11. 
*12. 
113. 
*14. 
SIS. 

5 1 * . 
*17. 
S 1 * . 
*19. 
*20 . 
*2 1 . 
*22 . 
*23 . 
124 . 
*2* . 
*2* . 
*27 . 


*054*9 1 — * 6* I I [ IM2 I « A 1 1WT J , IM2] *1 ♦ ( ■ AJ2 1 J J + AJ 1 [ J I )*XIYIP!J,IM2J/ 

. 2.0 

polled t OX I I t IM2 ) *X I Y I P ( J , I M2 J *5 + I - A J2 t J ) *AJ1 ( J ) J /2 O 
TO* |Gl*(POt4*P0«3+P03*P049 + P033**2)-* 1 1 )*• ( G2- 1 ) 

RIMP91*2*C»*G2*SG(JMt,J,Kl*P033*P033P*1»TO*SP2*G1*G2*PQ33*P033P*1* 
. TO 

TO* ( Cl* I P 0 1 A* P093+P03* P04i*P033**2 ) ♦ 1 1 * * { G2 * 1 ) 

R J p * 1 * 12*C1*C2*SC1 IMI , J,KJ*P033*PQ33Pi1*TO*S+2*6t*C2*P033*P033P*1* 

. TOI/4.0 

TO * C2 - 1 

T 1 » |G1*{POI**PO«3 + P03*P04*PPD33**2l-*1 ) * * TO 
T 2 * lG1»tPOS4*P09*-P024»PO*4«-P03**»2)-*'1 )**T0 

T3 * P0S4*PO9P* 1 ♦ P 0 5 4 P * 1 *PO9*P024»PO99P* 1 +PQ24PB 1 *P0*9 + 2*P03*» 

. P039PS1 

R K P C I * |C1*G2*SC( [Ml , J , KM1 )*T2*T3*S*2*G1*C2*SGt IM1 , J , K) ■P033* 

. P033P*t*Tl»S*C1*02*T2*T3*2*CI*C2*P033*P033P*1*T1 )/4 .0 

TO* l G1* ( P01**P0t3*PG3*P04t»P033**2l*l I * * ( G2 * 1 ) 

RJPP*1« (2*G1*G2*5Cl I M 1 , J , X 1 » P033 *P033P * 1 * TO* S * 2* C 1 * G2 * P033 • P033P * I 
* TO J /4 . O 

TO* ( G 1 « |P014*PDS3-*-P03*P044«’P033**2l+1 ) * * (C2 - 1 1 

RKPP* 1 * [2*G1»C2»SG| IMI .J.K)*P033*P033P*1*TO*S*2*G1«G2*P033*P033P81 
*TO)/4 .0 

RESPI 1 « t (P*A~PI3)*RKPS1« T A3 3M* 2* X ! X X 1 (J. I | *02 I NF. RKP I 1 /O II T AC U ) )• 
. V2 ♦ I ( • R||«R 1 13)*RKPPB1*TA33P+2*X1XKI (J, I 1*02JNP*RKPP*1/D2ETAC{K) ) 
. * V 1 * S * ( R I MP S 1 • T A 1 2M* t [ P 9 3 ♦ P 1 2 - P * * • P*7 ) * T A J 2 + ( P • • ♦ P • 7 - P • 3 • P • 2 l • 

. T A J 1 1 ♦ l P * * - P * 7 )*RIMPS1*TAI 1M*2*OXINF»RIMP8l/DXIC( I J )*S*(RJP91* 

. TAJ 1 M* ( |P49-P*9^PA4«P43)*TAI2^|P44"P97*P43-P*2)“TAI 1 )■* (P48-P43)* 

. RJPS 1 * T A 2 2M ) ♦RJPP* 1 * T A 2 1 P * ( l P94 -P93+P49 -P*« ) • T A I 2 ♦ I Pi3-P*2*P** * 

. P«7 J *TA I 1 )*t P93*P*I )*RJPP91*TA22P 

OER « RES P 1 1 


ELSEIF ( CNO( I l , JJ.KK, (Ml , J , KMl ) | 
P 0 • P • 2 * D X I I ( I M 1 ) *s 
P09PC2 * D X I X ( I M2 ) 

P023PS2 
P024P *2 
P032P 12 
P033P *2 
P03AP 92 
P039P *2 


THEN 


P053P 92 
. 2.0 

P0S4P 92 
PO BSP 92 
PO B9P 12 


-AJ2 ( J ) *A J 1 ( J ) ) / 2 . O 
I - A J2 ( J ) ♦AJ 1 [ J ) ) / 2 . © 

• ( 1 . 0/2 . 0*A 1 M K ) 1 
*( 1 . 0/2 . 0*A 1 Kl K ) ) 

1 - A2K( KMl l+AIKlKMI) 1/2.0 
I - A2K( KMl )*A1K( KM 1))/2. O 

OXI I | IMI ) *A 1 1R( J , I M 1 ) *S* I * A J2 ( J ] ♦ A J 1 (J) )*XIYIP(J,IM1 1/ 


( - A J2 ( J ) * AJ 1 [J) )*xmMJ, ! M2 1/2. 0*D X I I I 1MJ)*A1 1R( J, I M2) 
OKI I | X M 1 )*XIV1P[J.IM1 ) * S ♦ C * A J 2 I J ) ♦ A J 1 (J) J/2.0 
OXI I| IM2 ) * X I Y I P ( J , IM2 )♦( * A J 2 t J ) *A J 1 ( J ) J/2.0 
TO* |G1*|P017*P0«2*P02*P047«-P032*»2j*l )**{C2 - 1 ) 

RIPP82*2*G1*G2*SC( I ,J, KJ*P032*P032P92*TO*S^2*G1*G2*P032*P032PS2*TO 
TO • G2 * 1 

T 1 * ( G 1 * I PO 1**POI3^P03*P04*4’P033*»2 ) ♦ 1 ) * • TO 

RIMPS2*SG( IM1 , J , K ) • (2»G1*62*P033*P033P«2*T1*S*2*G1*C2*P032*P032P*2 
■tG1*(P017*P0*2*P02»P047*P032«»2)*l)»*TO)*2»Ct*G2*P033*P033P*2*T1 
TO * G2 • 1 

T 1 * { C 1 • |P017*POI2>P02*P047*P032**2)*-1 )**T0 
T2 * 2*C 1 • C2*P032*P032PS2*T 1 

T 3 * ( G 1 * I P01»*POI3*P03*P04**P033“*2 )♦ 1 1 ■ « TO 

RJPS2* I SGI IM1 , J , K ) ■ I 2*G1*C2*P033*P033P«2*T3***T2)+2*G1*G2*SG( I . J , K 
)*P032*P032P*2»T 1*5*2*G1*G2*P033*P033P»2*T3*T2 )/4 .0 
TO* C2 - 1 

T 1 * I Cl* ( P0 17*P082*PQ2*P047*P037** 2 j* i 1 I »*TO 
T2*2*C1*C2*P032*P032P*2*T1 

T 3 * IC1* lP01**P083*P03*P04**P033**2)«‘1 |**TO 
T 4 * ( G 1 * ( POS3*P0*+PO23*PO*4*P034**2 J ♦ 1 I **TO 

T5*P0*3*PQ4PS2*PO53PS2*POA*P023*POIIP82*P023Pi2*P0IA+2*PQ34* 

P 0 3 * P S 2 

T* ■ G 1 «G2*T4*TS 

T 7 ■ | G I » ( P0S4*P09 + PO24*P099 , *P039**2 J ♦ 1 )««T0 

T8*POS4*P09P92+PO*4PX2*P09+P024«P099P92»P024P*2*P089+2*Pa39* 

P039PC2 

RKPS2* I SC( X M 1 , J , KMl J*(C1*C2*T7*T4*S-*-TIJfSC( IM1 ,J.K]*(2*C1*C2«P033« 
P033P92*T3*S+T2 ) ♦ G 1 » C 2 * S C ( ] ,J,KM1 J»T4»T5«$*2*G1*G2*SG( I ,J,K)*P032 
*P032P*2*T1*S*G1*C2*T7*T9*T4+2*G1*G2*P033*P033Pf2»T3*T2] /4 .0 
TO * C2 * 1 

T 1 » ( G 1 * ( P017*P082*P02*P047*P032* *2 )♦ 1 |**T0 
T2*2*C1*C2*P032*PQ32P92*T1 

T 3 ■ ( Cl * t P01**P0*3*P03*P04 *pP 033**2 J ♦ l )**TO 

RJPPC2* [SCI ) M 1 , J, K ) ■ (2*C1*C2*P033*P033P»2*T3*SpT 2)+2*C1*G2*SG| I . J , 
K)*P032*P032P*2*T1*S^2*Cl*G2*P033»P033P«2*T3*T2)/4.O 
TO* G2 - 1 

T 1 ■ I Cl* ( P017»P0*2*P02*P047*P032**2} + 1 l**TO 
T2 * 2*G 1 * G2*P032*P032P 8 2 • T 1 

T 3 * (Cl* (P01»*PO«3-*P03*P04* + P033**2> + 1 )**T0 

RK P P * 2 * (SGC1M1 , J, K)* (2*C1*G2*P033*P033P82*T3*5*T2J*2*G1*C2*SCl 1 . J, 
K)*P032*P032P«2*T1*S«‘2*Gl*G2*P033»P033P»2*T3 + T2}/4.o 
RES P < 2 * ( ( PA* • P 8 3 ) *RKP82“TA33M+2* XlXX X ( J, I )*OIXNP»RKP«2/OXETAC1K) )• 
V 2 ♦ I I 13j*RKPP82*TA33P*2*XIXXI(J. I )*Q2INF»AKPPI2/02ETAClKj J 

• V 1 ♦ *« ( RIMP*2*TA 1 2M* ( ( P93+P92-P84-P47 | *TAJ2*( P*4+P«7-P*3 -P82 ) * 
TAJ1 )♦(P»*-P*7^*RIMP*2*TA11M♦2»OXrHP•RIMP•2/DX^C! I) J*RIPP*2*TA12P 
* ( ( P94 + P93~P*S * P 4 4 ) * T A J 2 * ( P49»PI1*P14 - P * 3 J * T A J 1 ) ♦ S » | RJP*2*TA2 1M* ( 
| P89-PA8+P84-P63 )*TAI2+(P***P#7^P*3-P*2)*TA! 1 )*(PSA-P*3 )*RJP*2* 
TA22M)*-RJPPa2*TA21P*((P*4*P*3*P*9-P**}«TAI2^[P93-P92+Pa»-Pa7)* 

TAX 1 l4(P(3*P**)»'RJPP*2*TA22P+(P»l _ P»«J*RIPP*2*TA1 1P*2*0XIMF« 

R1 PPS2/DX X C ( I } 

DER * RES P *2 

ELSEXF { CKO I 1 1 , J J , KK , X , J , KH1 ) ) THEN 

P07PS3 * 0X1 1 ( I )*S 

P 0 • P *3 • OX I I ( IM1 ) 


( * AJ2 ( J ) ♦ A J 1 ( J ) } / 2 . 0 
( - A J 2 1 J ) + A J 1 ( J ) ) / 2 O 
-|1. 0/2 . O* A 1 K [ K ) ) 

• [ 1 . 0/2 . O* A 1 K ( K ) ) 

[-A2KIKM1 )+A1K(KMt ) J/2.0 
I -A2KIKM1 ) + A 1 K | KM 1 ) J/2.0 

OX I 1 ( I ] * A 1 1 R ( J , I ) • S ♦ ( - AJ2(J)*AJ1 (J) 1*XIYIP|J, I 1/2.0 
( * A J2 I J ) + A J 1 ( J ) )*XIYIP(J, IM1 )/2.O + 0XII( IM1 )*A1 1 R [ J , XM1 ) 
OXIII 1 | *X I YIP | J. I 1 •* ♦ t - AJ2 l J 1 ♦ A J 1 (J) 1/2.0 
0X1 X ( I M 1 )*XJYIP( J, IMI )♦( ■ AJ2 I J ) ♦ A J 1 [ Jl 1/2.0 


P022P83 
P 023 P 8 3 
P03 1 P*3 
P 0 3 2 P *3 
P03 T P • 3 
P03APS3 
P 0 S 2 P *3 
P 0 * 3 P * 3 
P0B7P83 
PO **PS3 
T O * G 2 * 1 

T 1 * ( G 1 * (P017*PO«2-*P02*P047*-P032**2) + 1 |*»TO 

RtPP*3*SG( 1 , J , K ) * ( 2*G1*G2*P032*P032PS3*T1*S + 2*C 1*G2*P031*P031P(3* ( 
G1* ( P01 *»P0*1^P01*P04*+P031*»2)*1 )**TO]*2*C1*G2*P032*P032P*3*T1 
R IMP S3 *2*G 1 *C2*SG ( IMI , J . K ) * P 0 3 2* P 032P *3 * ( C 1 » ( PO 1 7 • PO « 2 ♦ P02 * P 0 4 7 ♦ 

. P 0 3 2 * » 2 J ♦ 1 » ** ( C2 * 1 J 
TO * C 2 - 1 

T 1 • (Cl* ( P017*PO*2"*PG2*P047-*P032**2 ) *1 l**TO 

R J P fi 3 * ( SC ( 1 , J , K I • ( 2*G 1 *G2*P032*P032P*3*T 1 »S*2*G1 *G2»P031 *P031 P*3* I 
. C1*( P01 **P0« 1^P0 1*P04«*P031**2)41 )*»TO)-*2*G1*G2*SG[ IMI ,J,Kl*P032* 

. P032P*3*T1+2*G1*C2*P032*P032P83*T1 1/4 .0 

TO * G2 - I 

TM ( C 1 * ( PO 1 7* P082^P02*P047^P032**2 ) + 1 )**T0 
T2MGI*(P0S3*P04 + Pa23*POS4*P03*»*2)*1)**TO 

T3*PO*3*PO4P*3*PO*3P*3*PO4*PO23*P0**P«3*P023P«3*P0*»*2*PO34* 

. P 0 3 * P * 3 

RKP83* ( SGI I p 4. KMl 1* t C 1 * C2 • T 2 • T 3 »S + 6 1 * C2 * ( G 1 • ( P0*2 • P 07 + P 022 • PO *7 ♦ 

. P037*«2)*1 1**T0* ( P052*P07P83*P052P*3*P07*P022*PO*7P*3*P022Pi3* 

. PO87 + 2*P037* P037P 83 1 )*SG( I ,J,K)*|2*G1*G2*P032*P032P«3*T1*S+2*G1* 
G2*P031*P03 I PIJ* I C 1 • I P01I*P0I14P01*P04*pP 031**21*1 )**T0}+G1*G2*SG 
. [ JM1 , J , KMl 1*T2*T3*GI*G2*T2*T3 + 2*G1*G2*SG( IMI I J,Kl*P032*P032P«3*T1 

. ♦2»G1*G2*P032*PO32P83*T1 )/4 .0 

TO * G 2 ♦ 1 

Tt*(G1»(P017»P0«2*P02*P047*-P032»*2) + 1)**TO 

RJPP«3*(SCU.J,K)*(2»G1*C2*P032*P032P«3*T1»*p2*C1*C2*P031»P031P*3* 
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57* 
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5*0 . 
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tit 
587 . 
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5*9. 
5*0. 
5*1. 
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195 . 
59 * . 
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*00 . 
50 I . 

• 02 . 

• 03 

• O* . 

• Of . 
sot . 
107 . 

• 08 . 

• 09 . 

• lO . 

• 11. 

• 12. 

• 13. 
*14. 

• 15. 

• 1 * . 

• 17. 

S 1 * . 

• 19. 

• 20 . 

• 2 1 . 

• 22 

• 23 
524 

• 25 
*2* 

• 27 . 

• 28 . 

• 29 . 

• 30 . 

• 3 1 . 

• 32 . 

• 33 . 

• 34 . 

• 35 . 

• 3* 

• 37 . 

• 38 . 

• 39 . 

• 40 . 

• 4 1 . 

■ 42 . 

• 43 . 

• 44 . 

■ 45 . 

• 4* . 

• 47 . 

• 4* . 

• 49 . 

• 50 . 

15 1. 

• 52 . 

• S3 . 
*54 . 

• 55 . 

• 5* . 

• 57 . 

■ 5* 

• 59 . 


IC1* (P01S*»051+POt»P045+P031*«2)*t )«»TO)*2*Cl«G2*SCI IM1 ,J K ) ■ P D 32 
••032^83*T1*2*G1*C2*F032*P032^53*T1 J/4 . o 
TO * C2 * 1 

T1t(C1«fr0l7*P0l2*PO2*PO47*P032«»2)*1)-»TO 

AKPP53 * ( SC ( I , J t K ) • C 2*G 1 - C2 • * 0 3 2 " * 0 3 2 » 5 3 • T 1 *S*2*C 1 »G2*PQ3 1 »PQ3 l P 13* 
. (G1*|P0l8*P051+P0 1*PQ48-*-P03ta«2) + i )*"TO) + 2*GI*G2*SC( IM1 , J K)«P032 

. • P032P*3« T 1 42» G 1 »G2»P032-P032P93*T 1 ) / 4 . 0 

ftESP«3a[(P8B-PS3)*ftKP*3*TA33M-(*K«TA33M)«2-XINXZ|J.n*0ZINF«RKPI3/ 

OZETAClK) I • V 2 ♦ | l ••••♦PI 13 ) a RKPPS3 a TA33P+2*X(XXl (J, 1 ) a 0ZINF*RKPPS3 
. / 0 2 E T A C ( Kl ) • V 1 ♦ S ■ I 4 ! HP *3 * TA 1 3M» ( (Pt3+P12*PA*-P8?)aTAJ2*(P*8*P*7‘ 

P*3'P82)*TAJ1 J*(P*#*P*7)*RIHPI3»TA1 1M*2 a 0KINF*RIMP«3/DXIC( I ) ) ♦ 

. RIPP«3«TA12P*l(P94»P93-P89-P**)*TAJ2*(F99a.F»i.p*4-P*3)»TAJ1)^S»{ 

. RJP«3*TA21M*( I P89 -P*i»P94 - P * 3 ) *Tftl2* ( P8*-P87-aP*3-P*2) a TAl 1 )t(R(«- 

. P83) a RJP93 a TA22M)*RJPP*3.TA2tPal(P94-P93«>P|9-Pa») a TAI2MP93*P»2 + 

. P«8-P«7j*TA:i}p(P*3-P8*).RjPP*3-TA22P*iP*9-P**)*IUPPS3»TA11Pa.2- 
. 0* I NF • R I PP83/ DK I C { I ) 

OER 1 RC 5 P 5 3 
4 

ELSE IF (CNDt I 1 , JJ , XK, I P 1 , J , KM 1 ) ) THEN 
P07P54 t OXIItl) 

P022P54 . ( ' A J 2 1 J ) ♦ A J 1 ( J ) )/2 .0 

P 0 3 1 P • 4 ■ - ( 1 . 0/2 0*A 1K( K ) ) 

F 0 3 7 P • 4 * ( * A 2 K ( KM ! | ♦* 1 K ( KM1 ) J/2.0 

P0I2P54 « ( -AJ2| JJ+AJ1 ( J) )#XIY1P( J. 1 J/2 .0*0X1 I [ I )«A1 1R( J. I) 

P097PS4 * 0X1 I I 1 ).XIYIP| J. I J ♦ { -AJ2I J)*AJt ( J) J/2 .0 

9IPMl«2»C1»C3 , SG|l,J 1 X)*P03»*P031PI4i(Cl*(p(3n»poi1*P01*P04M^031 
. * * 2 J ♦ I J • • l G 2 • t ) 

RJPt4tGt*G2*SC(l,J,K)*P031*PD31PS4*[G1 a (PO!8*POS1+P0t*P04|+pQ31**2 
>♦1 )* a (G2-l)/2.0 
TOi G2 - 1 

RXP»4« (G1*C2 a 5C( I , J , KM I ) a lC1 a fP052 a P07 a P022 a PO«7»P037 aa 2) a 1 )**TO>( 
P052 a PD7P84*P052P*4*PB74P022 a P0*7P54+P022P54 a P0*7*2«P037 a P037P94) 

. ♦2 a C1 a G2 a SCI 1 . J , K ) *P03 1 a P03 1 P • 4 ■ |G1i | PO 1 l>POI HPO 1 *P04|«P03 ! *>2 ) * 

1 } • * TO ( / 4 . 0 

RJPP 51 i G 1 »C1*SG | I ,J,K) a P031 a P031PB4a ( C 1 « { P015 a PO*1+P01»P04**P031 a « 

. 2 ) ♦ 1 )* a (C2*t)/2 .0 

RKPP»4«C1«C2*SC| I , J,K)»Pfl31 a PQ31Ml*IG1«|P0 1l*POIt*R0 1»R04t + P03l»« 

. 2 ) ♦ 1 ) a * f G2 - 1 ) /2 . O 

* es * * 4 * ( 1 P***P53) a RXP54 a 7A33M»2 a XIXXI {J, 1 ) a 0ZINF*JtKPI4/DZETAC(K) J a 
V2*l | • P5**P 1 1 3 ) »RKPPI4*TA33P*2*X 1 XX 1 (J, 1 ) a QZrNF*RKPP54/02ITAC(K) ) 
•V1*RlPP54»TA12P a ( (P94+P93-P89*P8* J * T A J 2 + ( P8iPP88*P84-P83) » T A J 1 j ♦ 

. S * I RJP**» TA2 I M* | [MI'PlltPll*P13)*TA12*[P»*-PI7*P|3*P|2]*TA[|)^l 
. • * 8 * P * 3 ) »RJM1*TA22M) ♦RJPP*4«TA2 1 P« ( ( P9* *P93*P89 - P5* ) « T A 1 2 ♦ ( P13- 

P92*P**-P»7) a TAIt)*(P93'P*«) a RJPP*4«TA22P*(P59-P5il a RIPPi4 a TA11P+ 

. 2*0K I NF« R ] PP 14/0)1 t C ( I J 

OER • RESPI4 

( 

ElSEIF c CNO f I I , JJ, KK , 1M2 , JP 1 , KM1 }) THEM 
P 0 2 4 P • I * A J 2 ( J ) / 2 . O 
P042P5C * - | 1 .0/2 .0*A1K|K) I 

P0S4P5* a AJ2IJ) a KlVIP(J < I M2 I / 2 . 0 
PDItPtl * AJ2 IJ1/2.0 

TOiP0t4PM*^09*P021*P01>Pll*P024Plt»POli 

T 1 * l G 1* ( P0S4*P09 ♦P024»P0I9*P03I**2 J* 1 J • * [ C2- 1 | 

• KPIIi (C1 a C7 a SG{ INI . J , KM I )*T0 a T1 a S+C1 a C2*TOaTl)/4.O 
TO* I C1« |P027*P072»P0 12»P057*P04 2*»2)*1 ) aa jG2 - 1 ) 

R J P P • 8 * ( 2*G 1 *C2*SG1 1 M 1 , JP 1 ,K) a P042*P042P*S*To a 5+7 a G1 a C2*P042 a 
P042P55 a TO) /4 . 0 

RISP II * i |Pll-Pt3)»RKPI9»TA33M+2 a K IXX1 {J. 1 ) a OZIHF a RKP55/DZETAC[K) ) a 
V2*RJPP8l a TA2IP a ( {P*4-P93 a P*9-P*») a TAI2*tP93*P92 + P85-P«7) a TAl 1 )♦( 

. P 9 3 - P • * J *RjPPIt*TA22P 
DER * RCIPM 

ElSEIF (CNDt 1 1 , JJ.KK, 1H1 . JP1 .KM1 ] ) THEM 

P023P 57 « A J 2 [ J } / 2 - 0 

P024P57 • A J 2 ( J ) / 2 . O 

P04 1 P 5 7 » *( 1 .0/2 . 0>A1K(K| ) 

P 0 4 2 P • 7 « • ( 1 . 0/2 . O* A I K ( K ] ) 

P0S3P57 * AJ2 ( J | * X I Y I P ( J . J Ml ) /2 . O 

P054P57 * AJ2 ( J 1 « X T V I P ( J , I M2 J /2 . 0 

P0S9P57 » A J 2 I J 1 / 2 . 0 

POI9P57 * A J 2 I J ) / 2 . O 

TO«POS3PI7*POI*PB23 a POIIPI7^P023PI7*P01l 

7HG2 - 1 

T2* ( C I » | P053 a P01 + P023 a PQ5l+P038 aa 2 ) ♦ 1 ]*tT1 
T3«C1*G2»TO*T2 

T 4 «POS4PI7«POI*’P02* , POI9PI7*P024P17 , POII 
T 5 • (C1« (P054 a P09*P024 a P059 a P039 aa 2} a 1 J * ■ T 1 

RXP17» (SCI 1 M 1 , J ) KM I ) a |C1 a G2 a T4 a T5 a 5*T3 )*G1*C2*SC( I .J KM 1 )tTO*T2*S« 

. Gl a C2*T4aTS*T31/4 .0 
TO* G2 * 1 

T1* (C1»(P02I*P071*P01 1 >P0I1»P04 1 * * 2 ) ♦ 1 ) ■• TO 
T2«2*CI*C2*P04I*P041PI7*T1 

T3» ( G 1 * (P027*P072*P0l2»POS7-*PO42 , *2)*1 J * » TO 

RJPP97* (SG( I M 1 , J P 1 , K ) ■ I 2 • G l«C2»P042*P04 2PI7*T3*S + T2|»2*C1*G2*SG( 1 , 
JPl,K) a P041«P04tPI7*TI»J»2*C1*C2*P042*P042PI7*T3tT2)/4.0 

t F*i ■ P53 ) *RKP1?»TA33M*2*X I XX I (j, I l a 0ZlNP a RKP57/0ZETAC(K) ) > 

V 2*R JPP 57 a TA2 1 P» ( |P»4*P13 a -P*9-P8*) a TA12 a (P93*P*2*P»*-P57J a TAIli a ( 

. P93-P5* ) *RjPP|7*TA22P 

DER ■ RESPI7 


ELSE I F ( CNO l I 1 , J J . KK 

P022P55 
P023PI1 
P 0 4 0 P 1 1 
P041PI1 
P052P98 
P053P 98 


I . JP 1 . KM1 ) ) THEM 


P017PI4 
P 0 I8P •* 


A J 2 ( J | /2 . 0 
A J 2 ( J ) / 2 O 
- I 1 . 0/2 . O > A 1 K ( K ) ] 

* l 1 .0/2 . 0* A 1 K ( K ) ) 

A J 2 IJ) a XIYIP(J, IJ/2.0 
A J 2 ( J ) ■ X I Y I P ( J , 1M1 ) / 2 . 
A J 2 1 J ) / 2 . 0 
A J 2 { J } / 2 . 


TOiPOS3Pll*POI*PQ23*POIIPI8«P023Pll*POIl 

T I * C2 - 1 

T2* I G 1 a ( POS3*POl*P023*POII*P03l*»2 ) ♦ 1 J aa Tl 

RKP88* (SC[ 1 , J. KM 1 ) ■ ( G 1 *G2* TO* T2* t ♦ G I a G2* (PD52P98 a P07*PQ22»P087P88* 
. P022P88 a P067 ) * ( C 1 » ( P052*P07*P022*PO«7*P037*»2 ) ♦ t J* a TI )+Gl*G2 a 5G( 

1 M I , J.KMI )*TO*T2*G1 a G2*TO*T2)/4 .0 
TO* C2 - 1 

T 1 1 ( G 1 * ( P02I* POT 1 ♦P01 1*P058*P04 1 • * 2 ) ♦ 1 ( a a t q 

RJPP88* [SG( I ,JP1 , K) a ( 2»G 1 *G2*P01 1 * P04 1Pll*TI*S42»GI*G2*P040* 

P04OP II* ( C 1 * |P02$*P070-»P0 10*POSItP0 40**2 (♦I i aa TO) + 2 a G1*C2*SC( IMt 
JP1 ,K)*P041»P04IPII*T142*C1*G2»P041*P01IPI»*T1 1/4.0 
RESPC8* ( ( P81*P83 l*RKPI*»TA33N+2*X tXXI |J. I ) a 0ZINP«RKP«8/02ETAC(Kj Ja 

V2*RJPP88 a TA21P a ((Pf*-Pt3 + P8»-PS8) a TAI2MP!3-P*2 + P8»-Pa7) a TAIliM 

. P9 3 • P»* ) a R JPP |8 « TA22P 
DER * RESPI8 


BLSEIF (CKDln.JJ.KK.IPl.JPl.KMl)) THEM 
P022P89 * AJ2IJJ/2.0 

P040P89 « - f 1 .0/2.0*A1K(K| ) 

P0S2PR9 * AJ2( J)*XiriP( J, I J/2.0 
P0I7PI9 . A J 2 I J ) / 2 . 0 

RKPtf*Gl*C2*SC( I , J , KM 1 )■ ( POS2PII*P07 a PQ22*POI7PI|tP022PI9*POI7 J a ( 

. G 1 a ( po52aP07*P022-PO*7-*.p037aa2 ) ♦ 1 ) • • J C2 - 1 ) /4 . 0 

RJPPI9 iG1 *G2*SG ( I ,JP1 , K)*P0lO*P04OPII* ( G»* (P02l*P0 70 4P010*POIl4 
. P040a*2 J+1 )a. (C2- 1 J/2 . O 

fteSPCS* c ( P8I -P*3 ) a *KP«» a TA33M+2*XIXX I( J , I) • 0 Z I NF • RK P ■ 9 / D ZE T AC { K ) ) ■ 
. V2*RJPPII*TA2IP* { |P14*P13*P1I-P11 l*TAI2*[P»3*P|2*PI|-P17)*TAI 1 J ♦ ( 
. PI3-PI4 | *RJPP||«TA22P 
OER * RESP89 


EISEJF (CNDt II , JJ.KK, I M2 , JM2 „ K J ) THEN 
P021P75 » - ( 1 . 0/2 . oa AJ 1 ( JM 1 ) ) 


C -3 
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III. 
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• 7 I . 
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• 7S 
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• 4 1. 
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• 90 . 

• 9 t . 
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197 . 
49 4. 
499 . 
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70 1. 
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7 15. 
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7 17. 
7 14. 
7 19. 
7 20 . 

72 1. 

722 . 

723 . 

724 . 
7 2 S . 
724 . 
727 . 
7 24. 

729 . 

730 . 

73 1 . 

732 . 

733 . 

734 . 

735 . 
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734 . 

739 . 

740 . 

74 1. 

742 . 

743 . 

744 . 

745 . 
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749 . 

750 . 

75 I . 
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75 5 . 
75 1. 
75 7 . 
754 . 

714 . 
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7 5 1. 
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715 . 
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7 4 4 . 

7 45 . 
770 . 
77 1 . 

772 . 

773 . 

774 . 

775 . 

7 7 4 . 
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742 . 

743 . 

744 . 
7*5 . 
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'4 7. 

7 4 4 . 
'49 . 
'■0 . 
’9 1 . 


P0S1P75 * • ( 1 .0/2.0*AJ1 (JM1 )*XIYIP(JM1 , 1 M2 ) ) 

P0««P7* « • l 1 . 0/2 . 0« AJ1 ( JM1 ) ) 

TO* (Cl* (P02l*P05i*P051 *P0 BpP035**2)p1 ) * * (C2 - 1 ] 
T1*P021*P0*«PT»*P021P75*P0«»*P0S1P75pP0* 

R J P 7 I * ( Cl *C2*SC ( 1MI , JH 1 , K)*TO*T1*S*C1*B2»TO*Tl ) / 4 .0 

RE5P7S*S* (RJP7i*TA21M* ( ( P49 - P44 + P44-P43 J*T4I2*IR44“P47*P43*P42 ) * 
. TAl 1 )f|P44-P*3}*RJP7B»TA22M) 

DER * RESP74 

euSEIF ( CND I I I , JJ , KK . IMt , JM2 . K) J THEN 


■ | 1 . 0/2 . ©*AJ 1 ( JM1 H 

* I t . 0/2 . O* AJ 1 t JM1 | ) 

* I l .0/2 . O* A J 1 [ JM1 ) * X 1 V ! P ( JM1 , IMt) ) 

- ( 1 . 0/2 . O* A J 1 ( JM1 ) *X I Y IP ( JMt , I M2) ) 

- I t , 0/2 . 0« A J 1 f JM1 ) ) 

* l 1 . 0/2 . 0« AJ 1 [ JMt | ) 


P02OP77 
P 0 2 1 P 7 7 
P05OP77 
P 0 5 1 P 7 7 
P045P77 
P 0 4 I P 7 7 
TO • C2 ♦ 

T 1 « | Cl* I PO20*P0«5PP05*P05O-*-P035**2 ) ♦ 1 ) *»T0 
T2«PQ2O*P045P77+PD2OP77-P045^P05*P0SOP77 
T 3 * C 1 *C2*T1 *T2 

Tii (C1*|P021*P0llPPO51*P0IPP03«**2)P1 I ■ * TO 
T5«P02 1 »P044P77 + P02 1 P77* POIf ♦POI 1 P77*P0$ 

RJP77* (SC( IM1.JM1 ,K}*(Gt*G2*T4*T5*S+T3)PG1*C2*5C( I , JM 1 t K)*T1*T2*S* 
. 6 1 *C2* T4* T5+T3 ) /4 . 0 

RESP77 *5* ( RJP77-TA2 1M» ( | P45-P44*P»4 -P43 ) *TA12* ( P44-P47 + P43-P42 ) • 

. TA 1 1 ) ♦ ( P44 * P 43 ) • A JP77 • T A22M) 

OCR ■ RES P 7 7 

ELSE I F ( CND ( 1 I , J J , KK , I . JM2 , K )) THEN 


* ( 1 .0/2 . 0 * A J t I JM1 ) ) 

Ml- 0/2 . O* AJ 1 ( JM 1 ) ) 

- { 1 .0/2 . 0 • A J 1 l JMt) »XI Y IP( JM1 , I ) ) 

* { 1 .0/2 .0*AJt ( JM 1 ) • X I Y I P ( *IM1 .JMT)) 
-(1.0/2. 0 * A J 1 ( J M 1 ) ) 

-(1.0/2. O * A J I ( JM 1 ) ) 


PO 1 9P74 
P02OP74 
P049P74 
P050P74 
P044P74 
P055P7I 
TO* C2 - 1 

T 1 « (C1*(PD20*P045PP05»P050 + PD35**2) + 1 )**T0 
T2*P020*PO»5P74*P020P74*PQIS*P05*P050P74 

RJP74* (SC( I , JM 1 ,K)*(G1*G2*T1*T2*S*G1*C2*(G1* (P019«P044*P04*P049+ 

. P034*«2)*1 ) »*T0* ( POI 9»F0I4P7I*FD 1IP74*P0I4*P04» P 0 4 9 P 7 4 ) )«-G1*C2*SG 

( IMt , J M 1 < K)*T1*T2‘*G1»C2*T1*T2J/4.0 
RESP74*S»(RJP74*TA21M«((P4f*P44*P44-P43)»TAI2*(P4l*P47-*P43-P42)* 

TA r t ) ♦ ( P4 4 • P 4 3 ) • R JP74 * TA22M) 

DER * RESP74 


EISEIF ( CNO ( I 1 . J J , KK , I P 1 . JM2 , K ) ) THEN 
P019P79 * * l 1 . 0/2 . 0« AJ1 ( JM1 ) ) 

P049P79 * • ( t . 0/2 . 0* AJ t ( JM1 ) *XJ Y I P ( JMt . I ) ) 

P044P79 * - ( 1 . 0/2 . O* AJ 1 ( JM1 ) ) 

RJP79*Gt*G2*SG( I.JM1 , K ) * | C 1 » ( PO 1 » • FOI4 + F04* PO *» *P 034 * * 2 ) ♦ I ) ** ( C2 - t 
1 • ( PO 1 I*P0I4P79*P0 1 »P75*P044*P04*P04iP71 ]/4 .0 
RESP7f*S*(RJP79*TA21M»( (P49-P48 B, P44*PB3)*TAI2 B (PS4*P47*P43-P42)* 

. TA I 1 ) ♦ | P44 - PI 3 1 « R JP79 * TA22M) 

DER * RESP7I 

ELSE 1 F ( CND ( I I , J J , KK . IM2 , JM t , K ) ) THEN 
POIPI t * DX I I ( I M2 ) * S 
PD14P41 ■ - ( t . 0/2 . O* AJ 1 l J ) ) 

PD21P41 ■ ( -AJ2 I JM1 ) + A J 1 (JM1) )/2.0 

PD3IP41 « 1-A2K(K|+A1KIK] )/2.0 

P 0 4 4 P 4 t * - (1 . 0/2 . O* A J t { J ) • X I Y I P | J . IM2 ) ) 

P 0 5 1 P 4 t • 0X1II ] M2 ) * A 1 1 R ( JM 1 , IM2 ) »$* ( - A J 2 ( JM t ) *A J 1 ( JM1 ) )*X I Y IP ( JM1 
. , I M2 ) /2 . O 

P043P41 * - ( 1 .0/2 . 0*AJ 1 | J ) | 

P044P41 * OX I I ( IM2 ) • X I Y I P ( JMt , I M2 ] *S* ( * AJ2 ( JM1 ) ♦ A J t( JM 1 ) ) /2 . O 

TO* ( C 1 ■ ( PO 1 4»P0I3+P03*P044+P033»*2 ) ♦ I ) *■ ( C2- 1 ) 

T 1 *P0 1 4*P043P4 1 tPO 1 4P4 1 *PDI3*P03*P044P4 1 
RIMP41 >G 1 * CZ*SC ( IMt , J , K ) * TO* T 1 *S *C 1 • C2* TO* T 1 
TO * G 2 * 1 

T1«(G1*{PD14*P0«3PP03*PO44+P033**2)*1)**TO 

T2*P014*P0l3P81+P01IP41*P0t3+PO3»PO49P41 

T3*(Ct*(PO21*PO»4PPO51*POI*P034**2)*t)**TO 

T 4 « POI I ■ PO I P I t ♦P02 1*P0I4P4 1 ♦ P 0 2 1 PI t *POII*POl 1 P I 1 *P0I*2*P03I* 

. P03IPI1 

RJP41 *(G1*C2*SC( I M 1 , JM I ,K)*T3*T4»S*C1*G2*SC( I Ml ,j,K)*Tl*T2*S*Cl*C2 
. *T3*T4-*G!*C2*T1*T2 1/4 .O 

TO « [ C 1 ■ ( PO 1 4* P0I3 + P03* P044 + P033* *2 ) ♦ 1 ) • * ( C2 * 1 ) 

T 1 ■ PO 1 4*P0I3P4 1 ♦ P O 1 IP! 1 *POI3 + P03*P044P« 1 

RKP41 * (Gt*G2*SC[ 1 M I , J, K )*T0*T1*S*C1*C2*T0*T1 )/4 . © 

TO* IC1*(P014*POI3 + P03*P044 , * , P033**2)*1 ) • » ( G 2 * 1 ) 

T 1 •P014*P043P41*P01»P4 I » P0I3 + PQ3*P0 4*PI 1 

RJPP41 ■ (C1*G2*SG( I M 1 ,J,K)*T0*T1*S*C1*G2*T©*Tl)/4.0 

TO*ICt*|Pai4*P0*3*P03*P04»*P033»*2)«-1)**[G2-tl 

Tt*P014*P043P41*P0t4P4t*P043*P03»P044P41 

RKPP41* (C1*G2*SC( I M 1 , J , K ) »TO»T 1 *S*C 1 *C2»T0* T 1 |/l .0 

RESP41 *( (P44-P43 )*RKPSt*TA33M*2*XlXXI !J. [ ) « 02 I NF • PKP* 1 /DIET AC I K ) ) * 
V2* [ ( * P • • ♦ P 1 13 ) * R KP P • 1 *TA33P*2*XIXXI [J. M*©2INF*RKPPtl/DZETAC(K) ) 
* Y 1 ♦$* (RIMP»1*TA1 2M* ( ( P 4 3 ♦ P * 2 - P 4 • • P 4 7 | • TA J 2 ♦ ( P • • *P • 7 * P 4 3 • P 4 2 I * 

T A J 1 ) , P|P44*P47)*RIMP41*TA1 1M*2*OXINP*RIMP41/0XIC( I ] )«-S*(AjP41« 
TA21M*( (P4t*P44*P44*P43)*TAI2+(P44*P87*P43*P42)*TAI 1 )*{P44*P43|* 
RJP4 1 *TA22M) ♦ R J P P 4 1 *TA2 1 P* I (P44 • P IS^P 1 1 * P 44 ) • T A I 2* ( PI3*PI2*PI4* 

P 4 7 ) * T A I 1 ) ♦ ( P93 -P44 )*RJPP4 t *TA22P 
OCR * RSSP41 

EL5E1P l CNO 1 I I . JJ . KK . IM1 , JM1 , K )) THEN 
P05P42 * OX t I ( IM1 ) »* 

P04P42 * 0X11(1 M2) 

P017P42 * - l 1 . 0/2 . O* A J 1 [ J ) ) 

- I t . 0/2 . O* AJ 1 ( J ) ) 

[ * AJ2 ( JMt ) ♦ A J 1 I JM 1 ) )/2.0 
[ * AJ2 ( JM1 ) + A J 1 (JMt ) 1/2.0 
( - A 2 K ( K ) + A ! K ( K ) ) / 2 . 0 
{ - A 2 K ( K ) *A 1 K ( K ) )/2.0 
- ( 1 . 0/2 . 0* AJ 1 ( J ) *X I Y I P | J . I Ml) | 

•( 1 .0/2 . O* AJ 1 (J)*XIYIP[J, I M2) ) 

OXI I ( IM! )*A1 1 R ( JM 1 , IMt )*$♦ ( * A J 2 ( JM 1 ) +A J 1 ( JM1 ) )*XIYIP[JM1 


P01IPI2 
P020P42 
P02 l P42 
P03SP42 
P 0 3 I P 4 2 
P047P42 
P044P42 
POSOP42 
. . I M 1 ) / 2 . O 

P051P42 ■ ( - A J2 ( JM 1 } + A J 1 (JM1 ) )*XIYIP(JM1 , IM2)/2.0POXIl(IM2)*At !R( 

JMt , I M2 ) 

PO • 2 P 4 2 ■ - ( 1 . 0/2 . O* AJ 1 ( J ) | 

P 0 1 3 P 4 2 * - ( 1 . 0/2 . 0*AJ 1 l J ) ) 

P045P42 * OXII ( IMt )PXIYIP(JM1,IM1 )»!♦(• A J2 ( JM 1 ) + A J 1 I JM 1 ) ) / 2 . 0 

P 0 1 1 P 1 2 * OXII I IM2)*XIY1P(JM1 , I M2 )+(-AJ2{ JM 1 ) * A J 1 { JM 1 ) ) / 2 . O 

TO* ( C 1 * ( PO 17*P042+P02*P047+P032**2 )♦ t ) •* ( C2 * 1 J 
Tt*P0t7*P0»2P42-*P0 17P42*P042 + P02*PO47P42 
RIPP12»G1*C2*SC( 1 ,J, K)*T0*T1*S+G I *C3*TO*T 1 
TO * C 2 - 1 

T I • (C1*(P014*POI3PP03*P04|PP033**2 )* 1 ) * *T0 
T2*P014*P0I3P42*P014P*2*P0I3+P03»P044PI2 

AIMP42*SG(IM1,J.K)*(G1*G2*T1*T2*S*G1*G2*(ClMP017*P042*P02«P047* 

. P032**2)*1 ) * *TO* (P017*P042P42 + P017P42*P042^P02*P047P42) )PG1*G2*T1 

. « T2 

TO * C2 - 1 

T 1 » ( C 1 » ( PO 1 7*P042PP02*P047PP032**2 )♦ 1 )**TO 

T2*P017*P042P42*P017P42*P042*P02*P047P42 

T3*G1*C2*Tt»T2 

T4* (Cl* |P014*POI3PPQ3*P044PP033**2)>1 )**TO 

TI*PO14»P0l3PI2 + P0tlPI2*P0l3*P03*P0A|P»2 

T4*(C1«lP020*P045PP05*P050- B P03$*»2)-*-1)«*TO 

T7 * P020*P04SP42*P020P42*PQ45*P050*POAPA2 + P05*P040P42p2*PQ3S* 

. P035P42 

T4 * G 1 »G2*T4* T7 
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T9. IC1*[P021-P094*PQS1*P09*P038*42)*1 ) ■ • TO 

T1O»PaSl*P09P42*P02l4P0i9P42*P02tP424P099*P0S1P42*P0S*2»PD34- 
. P039P42 

R J P 8 2 > (SCI I M 1 ,JM1 ,K)MG1«C2*T9*T10»S*T*)*SG( IM I .J,K)*(C1*G2*T4-TS* 
. * ♦ T 3 )*C1"C2»SG[ I , JM 1 1 K)-T8*T7*S*Ct-C2-SG( 1 ,J.K)»T1*T2«S*C1*G2»T9« 

. T10+T9+G1 -G2*T4*TS*T3 )/* .0 

TO * G2 - 1 

T1*{G1«{P017-P062*P02*P047*P032--2)*1)-«TO 
T2«P017»PD«2P42+POI7P42*P092*P024P047P42 
T3 >C 1 « G 2 * T 1 * T 2 

T 4 * (C1*(P014«POS3*PG3*P044*PD33--2}+t 1**10 
TS »P0 1 •»PQ93F47*P0 14P42-PQ43*P03“P044P42 

RKP 9 2 • l$G[ IMl.J,K)-(Ct*G24T4»TS»S*T3)*G1-G2»SG( I,J ( K]*T1*T2*S+G1* 

. G2-T4-T5 + T3 1 /4 . O 

TO «G2 * 1 

T 1 * (Gt*(P017*P092*P02»P047*P032**2 )* 1 ) • - TO 
T2»P017«PQ52PI2*P017P42*P0«2*P02-P047P12 
T3 * C 1 * G2» T 1 ■ T2 

T4* (Cl* ( P 0 14-PQ*3*P03-P044+P033-»2 ) ♦ 1 ) ■ • TO 
T5.P019«P053P*2*P01*P92*PO«3+P03»P044P42 

R J P P * 2 * (SC{ I Ml ,J,Kl»(C1-C2*T4»T5-S + T3)'*C1»C2-SC( I ,J,K)4T1*T2-S*G1« 
. G 2 • T * * T 8 ♦ T 3 1/4.0 
TO « G2 - 1 

Tl* (Cl* ( PO 17-P0*2*P02-PQ47*PQ324»2 I * 1 )«»To 
T2 »P0 1 7-P092P*2*P0 17P82-P0I2*P02-P047P82 
T3»G1*G2»T1-T2 

T 4 * ( Cl * t P0 14*P093*P03»P044 pP 033**2 |*1 ) - -TO 
TS*PD19*POi3P82*P01iP82»PO*3*P03-P048P42 

RKPP42* (SG[ I M 1 , J , K)*(G1*G2*T4»T**5*T3 1 + G 1 • G 2 » S G { I , J, Kl*TI-T2*S*G14 
G2*T 4 « TS* T 3 ) /4 . O 

RE S P 9 2 • ( ( P8* • P 13 ) -RKP82- TA33M*2» X 1 XX I (J. I )-OZIMF-AKP82/D2ETAC(K| )* 
. V2*{ { * P 8 8 ♦ P 1 13 ) ■RKPP42*TA33P*2*X1 XX I (J. 1 ) * 0 Z I NF * RKP P 4 2 / 0 Z ET AC { K ) } 

. *V1+S*|RIMP42*TA1 7M« ||PI3*P92-Pt4-P47}-TAJ2*(P44+P47-P43-P42)- 

. TAJ1 1 - I R IM*TA 12M*TAJ1 )*lP44-P«7)*RIMP42*TAt 1 Mp 2 • O X I N P • R 1 MP 4 2 / D X X C 
( I 1 1*RIPP42*TAI2P«( (P94*P93-P<f-P44)*TAJ2*(P49*P44>P44-P43)*TAJ1 1 
. *S« I RJP92-TA2 IM* ( ( P4I-P44*P44 - P*3 1 -TA I 2* ( P44*P*7*P43 - P42 ) -TAI 1) * ( 

. R J ■ T A 2 IP* TAI 1 ) ♦ ( P44 ■ P43 1 -RJP82-TA22M) *RJPP82-TA21 P ■ { (P94-P93*P*9> 
. P**}»TAI2+(Pt3-P»2*P**-P*7|*TAI 1 1 ♦ l P 9 3 * P * * 1 * A JP P * 2 • T A 2 2P ♦ ( P §0 * P * * 

)*RIPP42»TA1 1P*2-0XINF*RIPPI2/0X1C[ I ) 

DER * RESP42 


ILIEIF ( CNO ( M , J J . KK . I . JM1 . K )1 THEM 
P04P43 » 0X11(1)** 

P0SP43 * DXIKIH1 ) 

P018P43 * * ( 1 . 0/2 . O* AJ1 ( J )) 

P017P43 * * ( I . 0/2 . 0* AJ1 I J J 1 

P019P43 » ( ~AJ2(JM1 ) * A J I ( JM1 ) 1/2.0 

P020P43 * ( - A J 2 I JM 1 )*4J I ( JM1 1 1/2 .0 

P034P43 * ( • A2K { K ) + A 1 K ( K ) ) / 2 . O 

P03SP43 * ( - A2K ( K ) +A IK t K )) /2 .O 

P04 4P43 « - I 1 . 0/2 . 0-AJ1 I J) -XI VIP< J , 1) ) 

P047P43 * * I 1 0/2.0-AJ1 ( J1«X1YIP( J. 1M1 1) 

PD49P43 * OX 1 I( I) *91 1R ( JM1 , I )#*♦ ( * AJ2 ( JM1 1*AJ 1 ( JMt 1 ) - X I Y I P ( JM1 , I )/ 

. 2.0 

t * A J 2 ( JM 1 ) ♦ A J 1 ( JM1 )) ■ X I Y I P l JM 1 , IMt 1/2. 0*0X11 ( 1M1 )*A1 1R( 


• I 1 . 0/2 . O- A J 1 | J J ) 

*(1.0/2. O- A J t ( J ) ) 

DXll(I)»XIYIP(JM1,I)-S*(-AJ2(JM1)*AJ1(JM 1)1/2, 0 
0X1 I ( I M 1 ) * X I Y I P | JM 1 , I MI ) ♦ ( * A J2 ( JM 1 ) ♦ AJ 1 ( J M 1 ] 1/2.0 


P 0 * OP 4 3 * 

. JM1 . IMt J 

PO 8 1 P43 * 

P042P43 * 

P084P43 * 

P04SP43 * 

TO * C2 - 1 

T t i ( G 1 - I PO 17-P092*P02-P047*P032--2 ) * 1 1--T0 
T2«P0 17-PO«2PI3*>P0 17P43-P042>P02*P047P43 

RlPP83*SG{I,J.K)4(C1-C2»T1-T2*S*G1-C2-(Ci-(P019-P08t*PQl»PD40*P031 
. **2)*1 I * * TO* (PO! I-P041P*3*P01 8P«3-P091*P014PD49P83) )*G1»G2-T1»T2 

RIMP43*G1-C2-SG( lM1 t J,K)-|Ct»|P017*PQi2*P02-P047*Pq32-42)*1 ) - - ( G 2 * 
l )« ( PO 17-P092P43*P0 1 7P43-P042*P02-P047P43 1 
TO i C2 - 1 

Tt i (Ct- I PO 1 7-P092*P02-P047*P032»-2 ) ♦ 1 J--TO 
T2»P017-P092P43*P017P43-P092*P024P047P43 
T 3 * (Ct»(P02O«P04S*P0*-P0*O*P03*««2)*1 1--T0 

T4 « P02O>P09SP43*P02OPf3-P099*P0*O-P0SP43*P0S*P0*OP43*2*P039" 

. P03SP43 

RJP43* (SCI I , JM 1 ,K)*(Gi»G2*T3"T4-S*G1*C2*(Ct-iP019*P094*P04-PQ49* 

. P034--2}*! )»-TO-(P019-P044P43*P01tP93-P044*PO4»*P04P43*P04» 

. P04iP43*2*P034-P034P43 ) )*5C( l.J,K)-(G1-C2«Tt»T2*S*Cl-C2-(G1-(P01* 

. *POI 1 ♦ P 0 1 -P049*P03 1 -»2 )* 1 ) --To- ( PO 1 9 - P 0 9 1 P43*P01 9P83-P04l*P01 * 

. P04IP43) )*Ct-C2-SG( IM1 > JM1.RJ»T3-T9*G1-G2»T3-T4*G14G2»*G( IM1 . J , K ) 

. ■ T 1 -T2*G 1 -C2* T 1 « T2 1 /* . O 

TO » C2 - 1 

Tl * ( C1-(P017-P082*P02»PO*7*P032-*2 )*1 ) • • TO 
T2*P017»P092P43*P017P43-P092*P02«P047P43 

RKP93.(SG(I.J i IC)4lCl-G2-T1-T2-S+C1«G2-(Gl-(P01l-PO*1*POl4PO4**PO31 
. » • 2 1 * t ) » * TO* i PCI 4-P0I 1 P 4 3 + Pfl 1 4P43-P091 *P01-P049P43) ) *C 1 * C2 *SG ( I Ml 

. , J , K } • T 1 ■ T2*G 1 - G2* T 1 • T2 1 / 4 . O 

TO * C2 - 1 

Tl * (Cl-( P017-P052*PQ2-PQ47*P0324»2 1*1 J » « T 0 
T 2 * P 0 1 7-POI2P43*PO 1 7P43-P0«2*P02-P0*7P43 

A JPP *3 « ( S G ( I .J,X)-(C1-G2-T1-T2-S*C1-C2*(C1- |P01«4P091*P01-P049* 

. P031 4*21*1 ) »»TO* | PO 1 9-P09 1P93*P01 9P43-P0I 1 ♦ P 0 14P04CPI3 ) )*C1*G2«SG 

( IM1 ,J,Kl-T1»T2*C1*C2-T1-T2J/4.0 
TO * G2 - 1 

Tl *lCt*lP017»P042*P02-PQ47*Pa32*«21*1 )»*T0 
T2*P017*P092P*3*P017P*3«PO«2*P02*P047P43 

RKPP43* (SG( I , J J Kj»(Gl*G24T1*T24»*G1-C24(C1-(P01»*PO*1*P01*PO*9* 
P031--21+1 I--TO- (PQ19-POI1P43*POItP43«POS1*PD1«P044P43) )*C1«C2*SC 
( I M 1 ,j,K)-T1*T2*G1»C2*Tl«T2)/4.0 

AESP8 3 « l ( P99 -P93 ) * RKP43« T A33M* 2* X I XX I ( J , I 1 * O Z I IIP * RK P * 3 / 0 Z B T A C 1 K ] ) ■ 
V2*( | - P99*P 1 13 ) -AKPP*3»TA33P*2»X1XX I ( J , I )*O2INF4RKPP*3/0ZETAC(K) 1 

• Y1*S«(RIMP93«TAt 2M- ((P93*P»2-P44*P97)-TAJ2*(P99*P97-P43-P42|* 

T A J 1 I • I R I M-TA 1 2M-TAJ 1 1*IP44-P47)*RIMP*3«TA1!M*2«0XIMP*A!MP43/DXIC 
( I ) )*RIPP93*TA1 2P» ( ( P94*PS3 - Pll -P94 ) • T A J 2 * ( P99*P44*P44“P93 ) * T A J t 1 
•(RIP*TA12P»TAJ1)*S-(RJPi3*TA21M-((P9t-P*4*P*4-P*3l4TAI24(P*4'P47 

♦ P93*P42 ) * T A I 1 1+RJ-TA2 1M- ( * T A 1 2* T A I 1 1* | P44*P93)*RJP»3*TA22M* ( RJ- 
TA22M)1*R JPP93*TA21P* ( ( P9 4 • P I 3 * P4 • • P * * 1 - TAI 2* ( P93-P92*P44 -P97 ) * 
TAI1)*(P93-P**)-AJPP93*TA22P*(P99*P99)-AIPP93*TA11P*2»OXINP* 

R I PP43/0X I C ( I ) 


DER 


RES P 9 3 


ELSE IF ( CMO ( tl . JJ , KK , IP 1 , JM1 , K )) THEN 
P04P 44 i DX X I ( I ) 

POIIPII 
PO 1 IP 44 
P 0 3 4 P 4 4 
P 0 4 9 P 4 4 


P04 9P44 

. 1 

POf 1 P44 


( 1 .0/2 . 0-AJ1 I J) 1 
{ ■ A J 2 ( JM 1 ) *AJ 1 ( JM 1 ) J/2 .0 
( -A2KfK)*A1K(K) 1/2.0 
- ( 1. 0/2 - O-AJ 1 ( J ) -XI T IP ( J . 1) ) 

{ • A J 2 ( JM 1 } * A J 1 (JM1 ) )»XIYIP(JM1 , I J/2 .0*0X11 ( 1 ) * A 1 1 R ( J M 1 , I 


* ( t. 0/2 . O- AJ 1 ( J ) 1 

OX I I ( I) * X I Y I P( JM1 . I) * ( - AJ2 ( JM1 ) *AJ1 ( JM1 ) ) /2. O 
R IPP44-C1 » G 2 * S G ( I , J,X)*(C1»(F0I ■•P091*POI»P049*P03t*-2)*t } *« ( G2 - 1 1 
. •|P01i-POS1P44*P019PI4*P041*P01«P048Pi4) 

TO * G2 - 1 

RJP44«(Gl*G2«SG{I,JM1.K)-(Gl4(P01l-P044*P04-P049*PG344»2)*11«4TO-( 
. P019-P094P44*P01fP44*P044*P04l*P04P44*P04-P044P44*24P034«P034P44) 

. ♦G1*C2*SC(I.J,K)*(C14(P01I*P091*P01*P044*PQ31*42)*1)**TO*|P019* 

. P04 1P44*P01 9P14-P04 1 *P0 1 -P049P84 ) 1/4.0 

RKP44 *C 1*C2*SC ( I , J, K I * I G !■ C PO » 9-P04 1*P0 1 *P049*P031 **2 1 ♦ 1 1 »• ( G2 - 1 ) • 
. ( PO 1 9«P0 9 1 P44*P01 iP44*POI 1 *P01 -P049P44 ) /4. O 

RJPP44 « G1*C2>SG(I t J l K)-(Ct*|P018*P041*P01*P049*P031**2)*1)4«(C2-1) 
. • ( PO 1 |4PQI 1P44 + P01 4P44-P09 I * P 0 1 • P 0 4 9 P 9 4 | / 4 O 

RKPP44 « G 1 -C2-5G ( I . J . K ) • ( C 1 - ( PO 1 8*P04 1 +P0 1 -P044 *P03 1 » -2 ) ♦ 1 ) - * I G2 - 1 ) 
. *(P01S4P091P44*P019P44#Pa»l*PD1»P04*P44|/4 
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C P 57 


RESP54 * ( ( PI5*PS3 )»RK,PS4»TA33M*2*XIXX1 ( J , I ) «02 I Nf • «KP » 4/D2 ETAC ( K ] I • 
V 2 ♦ ( | • P » 5 ♦ P 1 13 ) »RKPP84*TA33P*2*X1XX 1 (J. I )*0ZINF*RKPPS4/0ZETAC|Kl J 

»V1*RIPP44«TA12P*tlP94+P*3-P59-P55J-TAJ2*|P5»*P44-P44-P53).TAJ1l* 

( RIP*TA12P*TAJ1 ) ♦ S » ( RJP54*TA21M* ( (PS9-PA4*P5*"P43 I ■ T A 1 2 + ( P5S-PS7* 
PI3-Pa2)»TAM)*RJ*TA21M»TAI2«-lPA»*P53)»KJP54«TA22M)*RJPP»4 , TA21P* 
(|P94-P*3*Pa9*P«5t»TAI2*{Pt3-P*2+P«5*P»7)»TAI1|*iP13-P45)»RJPP54- 
T A2 2 P ♦ ( P59 - P 5 5 ) * R I P P 54* TA 1 1P+2*QXINF*RIPP54/DXICI 1 ) 

OER ■ RESPS4 


E L 3 E I P ( CNO I 1 1 , JJ.XK, I M2 , J , K J } THEM 
P03PA6 * D X I I ( I M2 ) * $ 

P015PA5 i ( - A J2 I J ) +A J 1 ( J ] ) /2 . O 
A J 2 ( JM I )/2 .0 
• ( 1 . 0/2 . O ■ A J 1 I JP 1 M 
l *A2K(K)+A1K(K) 1/2.0 
A2KIKMI 1/2.0 
■ l 1 .0/2 . O* A 1 K | KP I ) ) 

DXIKI M2 )*A11R(J,I M2 »***(■ 


P 0 2 1 P 5 • 
P027PAS 
P 0 3 3 P 5 5 
P 0 3 1 P 5 1 
P045P55 
P045P5S 
2 . O 

PCS 1 P55 
P057P55 

P072P5 • 


AJ2{J)+AJt(J) > * X I Y I P | J , IM2 ) / 


A J2 ( JM 1 ) • X I Y 1 P ( JM 1 . IM2J/2.0 
- | 1 .0/2 . 0 * A J 1 ( JP t ) *X I YIP( JP1 . I M2 } | 

DX l 1 ( IM2l»XlYIP(J. IM2)*S*(-AJ2[J)*AJ1 lJ) 1/2.0 
A J2 ( JM I 1/2.0 
-|1. 0/2 . O* A J 1 ( JP 1 ) ) 

T O > (Cl* (P015*PO«3*P03*P045*P033**2)-*1 1«*( C2-1 I 

T1*P015*P053P5»'*P014P45«P053-*P03*P045P54*P03P«»*P044*2*P033* 

P033P5C 

R I MP 55*G1*G2*SG( (M1,J 1 K)*TO»T1 , 8*C1*62*TO»Tl 


TO* C2 - 1 

T I * (Cl* (P015*P053*P03"P045*P033**2 1 ♦ 1 J**TO 

T2»P015*P053P55*P014P45«PO»3*Pa3*P045P45 + P03Pif«'P044*2*P033* 
P033P55 

T 3 * (Cl* ( P021*POI|4POI I *P05*P03»**2 1 ♦ 1 J • • TO 

T4»P021*P055P55>P021P51*P055*-P051P55*P05 

R JP 5 5 * (C1*C2*SG( IM1 ,JM1 ,K|*T3*T4*S*CI*C2*SC( IM1 ,J,K)*T1*T2*5*G1*G2 
•T3*T4*C1»C2*Tl*T2)/4 .0 

TO « C2 - 1 

T1i(C1*(P015*P053*P03*P045«-P033**2) + 1)»*TO 

T2*P015*P053P45*P014P5»*PO«3*-P03*P045P45 + P03P45*P04»*-2*P033* 
P033P5I 

T 3 * { Cl* I P054*P09+PC24*P059*P039**2 1 ♦ 1 1 **T0 

RK P 5 5 i ( 2*C1*C2*SC( IM1 , J, KM I )*P03I»P03IPII»T3»S+C1*C2»SC( IM1 , J , K ) * 

T 1 *T2*S*2*G 1 «C2*P03**P03iP5«*T3 , *61*C2*T »*T2 ) / 4 .0 

TO « C2 - 1 

T I ■ [ Cl * I PO 1 5*PO«3*P03*P045 + P033**2 1 ♦ 1 J»*TO 

T2*P014*PO«3P45*P014P5»*PO«3^P03*P045P4«+P03P5I*P045>7*P033* 

P033P55 

T3 * (Cl* ( PO27*PO72 + P0 1 2*P057^P042**2 )♦ 1 ) • » TO 

T4iP027»P072P5»*P027P5l*P072*P012*P057P45 

RJPPSS* (C1*C2*SC( 1 M 1 ,JP1 t K|*T3»T4«S*Cl*G2»SC( IM1 . J ) K)»T1»T2*S + Ci* 
G2*T3*T4*G1*G2*T1*T2)/4 .0 

TO » G2 - 1 

T1* |G1*(P015*P053*P03*P045*P033»*21*1 l**TO 

T2*P015*P053P5»*POI4P4I*POI3^P03*P045P4«*P03P5«*P045*2*PD33* 

P033P5S 

T 3 ■ |C1» ( P03O*P075*P0 t 5*P0BO*P04S»»2 ) ♦ 1 )*»T0 

RKPP5B* [2*C1*C2*SG[ I M 1 , J , KP 1 )«P045*P04SP5I*T3*S*G1*C2*SG[ IMI , J.K|» 
T1*T2*S*‘2*C1*C2*P045*P045P55*T3>C1»C2»T1»T2l/4.o 

R E S P 5 5 * ( ( P5I-PK3 1 *RKP55*TA33M+2*XIXX I ( J , 1 }*OZINP*RKPIt/OZETAC(K))* 
V 2 ♦ ( ( - P 5 5 ♦ P 1 1 3 ) *RKPP55»TA33P*2*XI XXI (J. 1 )«0ZINF*RKPP5l/DZETAC(Kl ) 
*V I ♦•* ( R IMPS 5* TA1 JMp [ ( P»3^PS2*P55*P57 ) « TA J2* ( PBI + P57 -P53-P52 1 • 
TAJ1 ) ♦ ( P55-P57 ) *RIMP55*TA 1 1 M* 2 * 0 X IMF*RIMP55/DX (C ( I 1 )*S* t R J P 5 • * 

T A 2 I M* ( (PB9-PBB + PB4-P»3)*TAI2MPB»-PB7*Pi3*P52)*TAl 1 )*(P51-P13)* 
RJP55*TA22M|*RJPP55* TA2 1 P* ( ( P94 -P93+P5I ~ P 4 I ) • T A I 2 * ( P53-P92+P54* 
P57)*TA1 1 )+|P93-P55)*RJPP55*TA22P 

OER * RESP55 


ELSE IP 
P 0 2 P • 7 
P03P57 
PO 1 7 P 5 7 
PO 1 SP 57 
P02OP57 
P 0 2 1 P 5 7 
P 0 2 • P 5 7 
P027P57 
P032P57 
P 0 3 3 P 5 7 
P035PS7 
P039P57 
P044P57 
P045P 57 
P047P57 
2 . 0 


I CND | II , J J , KK , I M 1 , J , K ) 1 THEN 

• OX l I ( I M 1 ) *S 

* OX I I ( I M2 ) 

* ( * A J 2 | J 1 ♦ A J 1 ( J ) 1/2.0 

* ( - AJ2 l J ) *AJ 1 ( J } 1/2-0 

* A J 2 ( JM 1 1/2.0 

* A J2 ( JM 1 1/2.0 

* • ( 1 .0/2.0*AJ1 (JP1 ) ) 

* - ( 1 . O/ 2 . O* A J 1 | JP 1 ) ) 

* ( • A2K | K 1 + A 1 K ( K ) 1/2.0 
» l • A 2 K ( K ) ♦ A 1 K. ( K | 1/2.0 
■ A 2 K (KMt 1/2.0 

* A2K ( KM 11/2.0 

* - ( 1 . 0/2 . O* A 1 K ( KP I ) ) 

* - l 1 . 0/2 . O* A 1 K l KP 1 j ) 

* 0 X I 1 ( t M 1 ) « A 1 1 R I J , IM1 ) »S*( - AJ2 I J )*AJ1 ( J ) )*XIYIP(J, !M1 )/ 


P045PS7 • ( * AJ2 I J 1 +A J 1 ( J ) | * X I Y I P ( J , I M2 1 /2 . 0*OX 1 I ( IM2 ) *A 1 1 R { J 

P050P57 * AJ2 ( JM1 ) • X I Y I P ( JM1 , IM1 ) /2 . O 

P051P57 * A J2 ( JM1 1 • X I Y I P ( JM1 , IM2 1 /2 . O 

P055P57 * • ( 1 .0/2 .0*AJ1 ( JP1 )*XI Y JP( JP1 . IMI ] 1 

P057P57 * * ( 1 . 0/ 2. O* A J t ( JP 1 ) • X I Y I P ( JP 1 . IM2 1 ) 

P052P57 * OX I I ( IMI ) * X I Y I P l J , I Ml 1 •*♦ ( - AJ2 ( J 1 *AJ 1 ( J ) 1 /2 . O 

P053P57 * OX I I ( IM2 } *X r Y I P ( J , I M2 ) ♦ ( -AJ2 ( J 1 *AJ 1 l J ) 1 / 2 . 0 

P055PS7 * A J 2 ( J M 1 1/2.0 

P05BPS7 * A J 2 ( JM 1 1/2.0 

P071P57 • - ( 1 . 0/2 -0*AJ I ( JP 1 I J 

PQ72P57 * • ( 1 ,0/2.0*AJ1 l JP1 I ) 

TO* (C1*tP017*POI2 + Pa2*P047 + P032«*2|-H | ■• | 62* 1 J 

T1*R017*PO«2PS7*Pai7PB7*POe2*P02»P047PB7*P02PB7»P047*2*P032* 


P032P57 

RIPP57*G1*C2*SGlI J J,K)*TO*T1*S*G1*G2*TO*T1 


TO • C2 - 1 

T 1 * (Cl* (P015*P0«3*P03*P045*P033**2}*1 )**T0 

T2*P015*P053P87*P015Pi7*PQ43*P03*P044PS7*P03Pi7*P045*2*P033* 

P033P57 

RIMP57»SC( IMI ,J, K)» (C1*G2*T1*T2*S*G1*G2* (G1*(P0t7»P052 + P02*P0474 
P032**2)+1)**TO*(P017*P052P57*-P017P57*P052*P02*P047P57*P02P57* 
P047+2*P032*P032P47 ) ) *C 1 *G2»T1*T2 

TO * C 2 * 1 

T1* (Cl* (P017*P052*PQ2*P047*P032**2I*1 1 ■ * TO 

T2«P017*PO«2PS7*'P017P57*POt2 + P02*P047P87*-P02P57*P047*2*P032* 
P032P57 

T 3 * C 1 * C 2 * T 1 * T 2 

74* (61* ( PO 1 5*P053 + P03*P045 + P033**2 1 ♦ 1 l»*TO 

T5 *P0 1 5»PQ53P57*P0 1 5P47»P053>P03*P045P47*P03P47*P045*2*P033* 
P033P87 

T 5 * (Cl* (P02O»P055+P0S*P05O+P03S«*2)*t l**TO 

T7*P020sP0 8SP47>P020P47*P06 5-*POS*P050P57 

T 5 * C 1*C2*T**T7 

T»*(61*(P021*P055+P0S1*P05+P035«*2l»1)**TO 

T1O*P021*PO55P57* , P021P>7*P055* , P051P57»P0t 

RJP57* (SC( IMI , JM1 , K I • (C1*C2*T**T10»S*T5)*SGl IMI ,J, K I* ( C1*C2«T4*T5* 
9 + T 3 ) ♦G1*C2*3G ( I ,JM1 ,K)*T5*T7*S+G1*G2*»G( I , J . K ) «T 1 »T2*S*C 1 » G2*TI • 
T10 + T5*C1*62*T4«T5*T31/4 .O 

TO* 62 - 1 

T1*(61*(P017*P052*P02*P047 + P032*»2|-*1)**TO 

T2«P017*P052PI7«-P0 17PI7*P042*P02»P047P57*P02Pi?*PO«7'*2*P032* 
P032P57 

T3*61*62*T 1*T2 

T4*(61* (P015*P053*P03*P049 + P033**2) , *I )**T0 

T5 *P0 1 ■•P053P57+P0 1 •P57*P093* , P03*P046P57*P03P97*PO#9*2*P033* 
P033P57 

T5* (61*(POS3*P09*P023*P059*P03***2)*’1 1 * * T O 

T7*2*C1*C2*P035*P039P57*T9 
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Tti|Clt(PO54aPCI9*P024>PO59*P039**2)*1)«*TO 

RKP47 » { SC [ IM1 .J.ICM1 J • [ 2 • G 1 B C2*P039*P039PS7»T4*S*T7 ) ♦ S C ( IM1 
. C1»C2*T4»Ti«S*T3)+2»Gl*G2*5Gf I ,J, KM1 1 ■P034«PD34P47»T4*S*G1»C2*SC1 

. 1.J,K)»T1*T2*5*2»C1»C2»RQ39*R03*P47»T4*T7«-C1*C2*T4*TS*T3)/4.o 

T0»C2- 1 

T1«tC1»{R017»POt2+PO2»P047+R032*«2)*1)*»TO 

T2»P017«P052Pt7 + P017P17»P042«>P02»P047P47-*P02P47»P047«-2»Pa32» 

. PD32P47 

T 3 * G 1 • G2 * T 1 » T 2 

T4« (G1*(Pai4»PO«3*P03"PO4»*PO33*»2 ) ♦ 1 )»»T0 

TS*P014*P053P47*P014P47»P053'* , P03«PO*4P47+ , P03P47*P044*2*P033* 

. P033P57 

Tl« (C1*(P024*PD71*P01 l*P0S4*P041»«2 1*1 ) ■ « TO 
T7iP025»P071P47*P02«P47*P07 1 ♦ P 0 1 1*P05*P47 
T4*G1*G2*T4»T7 

T1 i (G1*(P027»P072*P012*P0S7*P042**2 )*1 ) • * TO 
T10»P027»P072P47«-P027P47«P072 + P012*P057P47 

A J P P 4 7 * (SGI IM1 , JP1 , K ) • ( C 1 * C2« TI«TtO*S*TI | ♦ $ C ( INI , J , K ) ■ (C1*G2*T4*TS 
•#*T3)+G1»G2«SG| 1 , JP 1 .K)*TI*T7*S#G1*C3*SC{ 1 < J,KjaTt*T2*S+GI*G2*TI 
. » T 10 + T|*G1*C2»T**TI*T3)/4 .0 

TO * G2 - 1 

T 1 * | G 1* (PO 17»P052*P02«P047+P032»«2 ) ♦ 1 )»*T0 

T2*P017*P042P17*PQ!7P47*P062*P02“P047Pf7-*P02P47«P047+2*P032 > 

. PO 3 2P 4 7 
T 3 » C 1 » G2 • T 1 * T 2 

T4* 1 G 1 • ( PO 1 4*P0»3*P03*P044*P033«»2 )♦ 1 ) »*T0 

T5*P014*P053P47^P014P47»P053*P03*P044P47*P03P47«P044*2*P033» 

. P033P47 

T 5 * ( G 1 » ( PQ29“P074*P0 !4»PQS9*P044«*2 )■* 1 )«»T0 
T7»2*G1»G2*P0*4»P044P47*T« 

T 4 * ( G 1 * ( PQ3O*P075 + P0IS«PDIO‘*’P045**2) + 1 )»«T0 

RKPP47»{SG( IMI . J.KPI ) • |2»G1*G2«P045»P045P47»Tt*J*T7)*SC( IMI , J , K ) • ( 

. C1*C2*T4BT5*S + T3)+2*Ct«C2*SG[ 1 . J , KP 1 )*P044*P044P47»T4*S*C1»C2*5G( 

I ,J, K ) « T l*T2»S*2»C 1 •G2*P041*P04*P47»T4*T7*C 1*C2*T4*T»*T3 | /4 . 0 
RBSP4 7* l | Pit -P53 )-AKP4 7«TA33M*2»*I XXt( J. I J • O Z I W P * *KP 4 7 / 0 ZE T AC I K )) » 

. V 2 ♦ l [ * P84 + P 1 13 )»RKPP47*TA33P*2*X1 XXI { J , I )"QZINF«RKPPi7/DZETAC{K) ) 

. • V 1 *S • [ R I MP47« TA t 2M- I ( P93 + P9 2 - P4I -PS7 ) ■ TA J2* t P44 + PI7 - P43 - P4 2 ) « 

TAJ1 | *R I M» T A 1 2M» ( *TAJ2*TAJ1 ) ♦ ( P 4 4 ■ P 4 7 ) • R I MP 4 7 * T A 1 I M * ( R 1 M » T A 1 1 M) *2 
. *0Xt«FMIMP47/0XICI I ) )*RIPP47*TA 1 2 P • ( [P»4*Pi3‘P4»*P4#)»TAJ2+(P49* 
. P44-P44-P43)»TAJ1 >*S»(RJP47*TA21M«( (Pi9-PS4«*PA4-P43)«TAI2'MPi4* 

. P47*Pt3*P§2)*TA|1)-[*J*TA21M»TAI1)-*|Pii-P43)«AJPi7*TA2 2M)*RJPPI7* 

. TA21P*((PI4-P53*P59-P4i)»TAI2*tP93*P92*P4i-P47)*TAI1J-(RJP»TA21P* 

. TA I 1 ] + fP93*Pli)*RJPPi7*TA22P+(Pi9-P$| J«R1PP47*TA1 1P+2*0XINP» 

. R I PP47/DX IC | ! J 
OER * RESP47 


ILIC I f { CNO ( I 1 . JJ . XK . I , J . K 1 ) THEN 
PO 1 P44 * DX I I ( I ) *5 

P02P44 • 0X11(1 Ml) 

P015P45 * { * A J2 I J ) + AJ 1 ( J ) ) /2 . O 

P017P45 * ( - AJ3 | J | +AJ 1 | J ] 1/2.0 

P019P44 * A J 2 ( JMI ) / 2 . 0 

P02OP44 * AJ2( JMi |/3 o 

P025P44 t * | 1. 0/2. 0»AJ1 | JP 1 ) ) 

P025P44 * - ( 1 . 0/2 . 0»AJ1 ( JP1 ) ) 

P031P44 • ( -A2K(K)«A1K(K|)/2.0 

P 0 3 2 P 4 4 * [ * A2K ( K ) *A 1 K | K ) ) /2 O 

P037P44 » A 2 K { KMI ) / 2 . O 

P034P4I » A3K I KMI 3/2.0 

P043P44 • * ( 1 . 0/2 . O* At K( KP 1 )) 

P044P44 • * ( 1 . 0/2 . O* A 1 K1 KP 1 ) 1 

P044P44 • DXt] ( 1 ) • A 1 IX I J , 1 ] •»♦ ( *AJ2 I J ) *AJ 1 (j) ) * X I Y J P ( J , I)/2.0 

P047P44 » I ■ A J2 I J ) + A J 1 I J ) |»XIVIP( J. IM1 )/2.O*0XlIlIM1)*A11RIJ.IM1) 

P04IP44 « AJ2 ( JMI )*X I VIP l JMI , 1 ) /2 . O 

P050P44 I A J3 t JMI ) * X I T l P I JMI . I M 1 ) / 2 . 0 

P 0 5 5 P 4 4 * * ( 1 . 0/ 2 . 0« AJ 1 ( JP 1 ) * X I Y 1 P [ JP 1 , I }J 

P05 4P44 » • ( 1 . 0/2 . 0«AJ I ( JP 1 ) • X I Y I P | JP I . I Ml ) ) 

P05IP44 » DX J I (I )*K I VIP ( J . I ) »S* ( - A J2 ( J ) ♦ AJ 1 ( J J ) /2 . O 

P0C2P44 • OX 1 I ( IMI ) • X I Y I P ( J. I M 1 )♦ { * AJ2 ( J ) »A J 1 ( J ) J /2 . O 

P 0 • 4 P 4 I * A J 2 ( JM 1 |/2 .0 
P0 4SP4 4 t A J 2 ( JMI ) / 2 . O 
P070P4I • * I 1 . 0/2 . O* AJ 1 ( JP 1 ) ) 

P071P44 * • l 1 . 0/2 . 0« AJ1 l JP 1 ) ) 

TO i G2 - 1 

T 1 » ( C 1 » ( PO 17«POI2*P02*P047*P032**2 )♦! ]>*T0 

T2*P017*P052P4i^P017Pii«P042*P02«P047Pi4 i *P02P44*P04742*P032* 

. P 0 3 2 P 1 1 

*1PP44»SC( I r J. K)*(C1*G2*T1»T2»S*G1«C2* ( G 1 « {PO! l*P0l1+P0t*P04l*PQ3l 
. « ■ 2 | ♦ 1 ) * * T O ■ ( POt l»POI 1P||*P0 1 IPI4*P0I 1 * P 0 1 ■P045P«4 + P0 1P44"P044*2* 

. P03 t «P03 1 P44 ) ) *G 1 *G2*T 1 • T2 

RIMP44*C1«G2»SCl IMI , J . K ) • I G 1 » (P017*P052*P02«P047*P032«»2)*1 )** (G2* 
1 ) * { PO 1 7*POI2P4i*PO 1 7P44*P0I2*P02* P0<7P4t + PQ2P44*P047 + 2*P032» 

. P032P44 } 

TO * G2 - 1 

T1 » ( 6 1 « (P017"P0S2 + P02«P047 + P032**2) + 1 ) • » TO 

T2*P017»P052P44*P017P44*PO«2^P02»P047P44*P02P44"P047^2*P032» 

. P 0 3 2 P 4 4 

T 3 » ( C 1 » ( P020*P055+P05*P050»P035»*2 | ♦ 1 ) « » TO 
T4 , P02O»P055P44*P02OPfl»P0«5^P04*P050P44 

R J P 4 4 ■ (SC[ I , JMI .K|MC1«C2«T3*T4*S*C1*G2> [Cl» (P01t*P044*P04*P049* 
P034*«2|+1)»»TO«|P019*P044P44pP019PI4»P054*P04*P049P44))+$C{I.J,K 
)*tGl*G3*Tt»T2»S+Cl»C2 1 IC1 1 [X01«»POIl*P01*P04l+P031**2)»l)*»TO»l 
PO 1 *■ P04 1 PII*P(3 1 IPI4*P0S 1 ♦PO 1 *P04 I P | 4 «- P 0 1 P$4*P04$ + 2*P03 1 *P03 1 P44 ) 

)-*C 1 ■C2»SC( IMI f JMI , K}*T3*T4*61*G2*T3*T4*G1 * G 2 ■ S G ( IMI ,J.K)*T1»T2 + 

C 1 * C 2 * T 1 » T 2 )/4 .0 
TO • G 2 ■ 1 

T 1 ■ ( G 1 * (P017*PO»2«-P02»P047*P032«*2)*1 ) • *T0 

T2 *PD 1 7*POi2Pi8*P017P44“POI2*P02*P047Pi4»P02P44*P047 + 2*P032» 
P032P44 

T3 « (G1>|POS3>PO4*P023PP0i4*PQ34»*2) + 1 }*«TO 

RKPSS * ( S G ( I .J. KMI )"(2*Ct*G2«P034*P03iP|4*T3*S + 2«G1*G2*P037*P037P4l 
•(G1»(P052»P07+P022»P057*P037»«2)al)»*TO}*SG(I,J < K)»(C1»C2*Tt»T2* 
l*Gl»G2*(E1»|P0tl*PDIl'»P01»PO4l+P031* , 2)+1|*»TO*(P615*P0*tPil« 

P01 >P4l*PO«l*P01aP04tPI4^P0 1P44*P04| + 2*P03 1 ■ P 0 3 t P 4 4 ) )+2«C1»C2»SC( 
IMI , J , KMI )*P034*P034P44»T3+2«C1«G2“P034»P034P44»T3+G!*G2“SG[IM1 .J 
.K)*Tl*T2*Gl*G2»T1*T2)/4.0 
TO • C2 • 1 

T 1 * ( G 1 • { PO 1 7>P0S2 + P02«P04 7*P032P*2 ) ♦ 1 )«»T0 

T2*P017«P042Pt4+PQ17P44*P052»P02«P047P44^P02P44"P047+2*P032« 

P032P44 

T 3 * ( Gt*(P029*PQ71+PQ1 1«P0S5*P041>»2)*1 )*>T0 
T4*P02l»P071P44* , P025Pt4*P071 ♦POI 1*P05CPI4 

R JP P 4 4 * ( S G ( t , JP 1 .K)*(C1>G2*T3*T4aS*C1*C2« (Cl* (P025»P070*P0 10»P055* 
P0*0*»2l*l l**TO« (P02!»P07OPH*P03IP*»»P07O^P0IO«P0IIP44) )»SC(I , J, 
K ) * 1 Gl»G2*T1«T2«5*'G1"G2»[C1*EP01f*P04l*P01aP045PP031**2)*1 )»«T0»( 
PO 1 4*P041 P4t*P0 1 4P44*P0f 1 +P0 1 »P04iP44*P0 1 P44*P04i + 2*PQ31*P03 1P44 } 
)*C1>G2*SC[IMl.JPl.K|*T3*T4-*-G1-G2*T3»T4aC1»C2*SG(lM1.J.K)aT1aT2^ 

C 1 ■ G 2 • T 1*T2)/4.0 
T0IC2- 1 

T 1 ■ ( G 1 « ( PO 1 7* P0«2>P02»P047 + P032«a2 ) + 1 ) •* TO 

T2 ■ PO I 7*PO42P44*P0 1 7P44«POK2 + P02aPD47P44*’P02PI4*PQ4742*P032* 
P032P44 

T3« I C t» ( PO29»P07»*PO14»POII*PO*4»t2 )»t ) ««To 

RKPP44«(5CI I , J , KP 1 )* (3*G1*G2*P044(P044P4I*T3*|42>G 1*G2*P043* 

P04 3P44* | G 1 • ( P024«P073 + P0 1 3 • POS 4 PPG 43 * > 2 ) ♦ 1 ) •• TO ) *%G (I . J . K ) • I C 1 ■ 
G2*T l*T2 , $a , C1 »G2* (SI* (POI 4*P0ft+P0 1 aP044*P031»*2 )♦! ) ■■TO* ( PD 1 
POI 1 P44»P0 1 4 P S I • P04 1 *P0 1 »P049P14 + P0 1 P 4 4 • P 0 4 I a 2 • P 0 3 1 *PQ3 1 P44 ) ) *2* 
C1«C2*SC| IMI .J.KPI J «P044»P044P4i«T3 + 2* G 1 • G2 • P 04 4 • PO 44P I4« T3*G 1 « C2 
■SCtIM1.J.K)»T1«T2PGlP624T1*T2J/4.0 
RESP44t( | P44*P53)*RKP44*TA33M>RK-TA33M*2-XIXXl |J.t)«0ZINP«RKP44/ 
D2ETACE K ) ) *V2+ U *P44*P 1 1 3 ) • RKPP 4 4 « T A2 3 P * (RKP-TA33P )P2*XIXXI(J.I)* 
OZIMF*RKPP4i/OZETAC(K) ) 1 Y ! ♦! » ( R I MP if » T A 1 2M- { (P93*P92-PA4-P«7)* 
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OF POOR QUALITY 



11**. 
111*. 
1 no. 
11*1. 
11*2. 
11*3. 
1 1»* . 
1115. 
1 1 »* . 
11*7. 
1 1 »* . 
119*. 
1 200 . 
1201 . 
1 202. 
1 203 . 
120*. 
1 205 
1201. 
t 207 . 
1 20* . 
120*. 
12 10. 
12 11. 
12 12. 
12 13. 
1 2 1 * 
12 15. 
1 2 t * . 
12 17. 
12 1*. 
12 1*. 
1220. 
1221. 
1 222 . 
1 223. 
122*. 
1225. 
1221. 
1 227. 
122*. 
1 229. 

1230. 

1231. 
1 232. 
1 233. 
123*. 
1 235 . 
123*. 
1 237 . 
123*. 
123*. 
1 240. 
12*1. 
1 2*2 . 
12*3. 
1 2 44. 
1 2** . 
1 2* f . 
12*7. 
124*. 
1 249. 
12*0. 
1251. 
1 252. 
1 253. 
125*. 
1 255. 
125*. 
1 257 . 
1 25* . 
1 259. 
1210. 
12*1. 
12*2. 
12*3. 
12 1*. 
12*5. 
1 2 ** . 
12*7. 
121*. 
121*. 
1 270 . 
1371. 
1 272. 
1 273 . 
127* . 
1 275 . 
127*. 
1277 . 
1 27* . 
127*. 
12*0. 
12*1. 
I 2*2 . 
I 2*3 . 
t 2*4 . 
12*5. 
121*. 
12*7. 
I 2 S C . 
128*. 
12*0. 
1291. 
1 2*2 . 
12*3. 
129*. 
12*5. 
129* . 
12*7 . 
129*. 

12 9 * . 
1300 . 
1301. 
I 302 . 
I 303 . 

1304 . 

1305 . 
130* . 
I 307 . 
I 30* . 
1 30* 
1310 . 
1311. 

13 12. 
3 13. 
3 1*. 
3 15 
31 * 
317 . 
31* 

3 1*. 


*0 1 IP** 
P025P »* 
P 0 3 1 P 8 9 
P 0 3 7 P * 9 
P 0 * 3 P • 9 
P 0 * • P * * 
P049P89 
P 0 5 5 P * I 
PO* 1 P*« 
PO 9*P»* 
P07OP *9 


TAJ2* I P8**P«7-P»3 -P*2 1 *TAJ1 ) TA1 2M» I -TAJ2«-T A J 1 ) ♦ ( P»*-P»7 ) » 

AIMP»»*TA1 1M*MM«TAt 1M*2»0X I N F « M MP •*/ D X I C ( I ] ) ♦ A 1 P P • » « T A 1 2 P • ((P»* 

♦ P*3-P**-P*»J*TAJ2«>|P**'*'P**-F**-P*3)»TAJ1 J*-RJP*TAT2P»( -TAJ2+TAJ1 ) 

♦ |P**-M»*P**-Pn)*TAI2*(M»-M7*r«3-PI2l»TAl !}♦ 

R J*TA2 IM> | * T A I 2 ♦ TA I 1 )♦[*»» -R»3 | •RJRII* TA22H*RJ» TAI3H )+RJPR*8» 

TA2 IP* ( (P94-P93+P*9*P**)*TAI2*(P93”PS2*P*9'P*T}*TAI 1 ) ♦R JP* TA2 1 P* ( 
»TAI2*TAI 1 )♦( F 9 3 * P • A ) *RJPP***TA22P ■ ( RJP*TA23P )♦ ( P*9 - P»* }*RIPP*9* 
TA 11 P-(RIP«TA 11 Pj* 2 * 0 XINF*RIPP»A/ 0 XIC(rl 

OCR ■ R E S P * A 

ELSEIF ( CND ( I I . J J . KK . I P 1 , J . K ) J THEN 

p o i p * * « dxi i m 

POIIPtI « |-AJ2(J|tAJ1(J))/2 O 

A J 2 [ JM 1 ) /2 . O 
-|1.0/2.0«AJt(JPl|) 

[ - A2M K J + A 1 K [ K ) J/2.0 
A2K ( KM I J/2.0 

- ( 1 . 0/2 . 0» A 1 K ( KP 1 | ) 

I -AJ21 J>PAJ1| J) )*X!YIPl J. U/2.04DXI I ( I )«A1 IM J. I) 

AJ21JM1 )»XIYIP(JM1,I)/2.0 
*( 1 .0/2 . O* A J 1 ( JP T 1*XIY!P(JP1 , I J ) 

0 X I I I I ) ■ X I Y I P ( J , I | ♦ t •AJ2 ( J 1 * A J 1 t J 1 ) / 2 . O 
A J 2 1 JM 1 )/2.0 

- ( 1 . 0/2 . O* A J 1 ( JP 1 } ) 

R1PP*9*C1*C2*SC( I , J,K) ■ ( Cl* ( PO 1 I»P0I1+P01 , P0*I*P031*»2)*1 )«» ( G2 - 1 ) 
•(PO1l»P0*lP***POIIPI9»P0ll*PQ1*PO**P»*+P01PI*«P0i»*2*P031« 

. P 0 3 1 P * 9 i 
TO « C2 - 1 

RJPI*« |61«C2*SC( I , JM! ,K)«(C1»{P01I*POI4>P04*PO**+P03*»»2|*1 )*«TO»{ 
. P01»«POI*P***P01*Pa*«PO*4*PO*»PO*»P**)»C1"C2»SC( 1 , J,K)*(C1»|P01I* 

PO*1+P0 1*PO*8 + P03t**2 ) + 1 ) * * TO* ( PO 1 »*PO«1PI»*P0 1 »P»»*PO* 1+PO 1 » 

. PO**P**+PO 1 P* J*P048 + 2*P03 1 *P031 P*» ) )/* . 0 
TO * C2 - 1 

RKP * 9 a |2»C1«C2*SC| 1 , J , KM1 ) • P031 • P037P »* * |C!*CP052»P07+P022*POI7* 
P037 »*2I»I )»»TO*C1*C2»SO{ ! . J, K|»{C1»{P01 *aPOI1*P01»Pq**fP031a»2|* 
1 ) * * T O * (P01 * * P 0 • 1PS9 + P01 IP»t«POI1*P01«P0*IPI9+P01PM*PO*l + 2aP031* 
. P031P**J J/A.O 

TO » C2 - 1 

RJPPIS * I C 1 * C2 * SC I 1 , JP1 . K J « {C1» ( P02**P070 + P010«P055 + P040*«2) + 1 )**T0 
a ( P02SaP070Pn>P02SPI»»P070*P0 10«POiSPA9 )*C1«C2»SC[ I , J , K ) * l C 1 » ( 
P01l , P0l1*P01aP04l*P031 , *2|*1 |*»TO»(P01l*P0llPII*P01IPI9aP081*P01 
. *P04SP894-P01PB9«PQ4I + 2«P031*P031P** ) ) / 4 .0 

TO a C2 - 1 

RKPPI9* I 2*G1»G2*SG( I , J , KP1 | »P04 3* PO* 3PI* • (Cl* (P02*»P073*P013 B P0SA+ 
. P 0 4 3 « ■ 2 ) ♦ 1 ) » ■ T O * C 1 * C 2 * S G ( t ,J, K)» ( G 1 * (P0t*»POi1*PO1»PO4»*PO3t**2 J 4 
1 ) ■ • TO* (PO 1 * » P 0 * 1P4S + P0 1 9 P * 9 ■ PO* 1 ♦ P 0 1 » PO<IP*9*PO 1P*9*P04| + 2*P03 1 » 
. P03 1P1I) ) /* . O 

R E 5 P 8 t • ( (P**-P*3 | *RKPI9*TA33M+2"X1XXI ( J , I )*02lNP«RKP8t/DZETAC(ICl J* 
. V2+ ( ( ■ P8I+P 1 13)»RRPPil*TA33P*2 , X]XXI ( J , 1)«02INF«RKPP**/DZETAC(KJJ 

, a V 1 +R I PP*I *TA t 2P * ( {P94*P93-P*9-P**)*TAJ2*{P*9*P»»-P**-P*3)*TAJ1 ) ♦ 
. RIP*TAt2P»{ -TAJ2+TAJI | ♦*• I R JP » 1 • T A2 1 M» I |P*I-P**+P**-P*3)«TAI2*{ 

. P*l-P*7*P*3-Pi2 ) *TA I 1 | ♦ R J * T A2 1 M* T A I 2 ♦ ( P**-P»3 ) ■RJP*9*TA22M) + 

. RJPPII*TA2 1 P* ( (P9**P93»P*9-P**)aiTA12>(P93-P9r*P*A-P*7)«TAr 1 ) ♦* JP» 
. TA21P*TAI2>( P93-P**) *RJPP99*TA22P*(PA9-P**)»RIPP49»TA1 1 P ♦ R l P » 

. TA 1 1 P*2 *0X I NF *R I PP *9 / 0 X I C ( I ) 

DER ■ RESP99 

ELSEIP ( C N 0 ( II , JJ , KK , IM2 , JP 1 , K J ) THEM 
PO 1 2P9 1 ■ OX I 1 { IM2 ) * 5 

PO 1 8P9 1 ■ A J 2 t J ) / 2 . O 

P 0 2 7 P * 1 » ( - A J 2 ( J P 1 ) ♦ A J 1 (JP1 I J/2.0 

P 0 * 2 P » 1 a ( -A2K(K)*A1K(K) )/2 .0 
P04IP91 ■ AJ2 { J ) • X 1 Y I P ( J , I M2 ) / 2 . 0 

P057P91 ■ OXI I | IM2 J * A 1 1RCJP1 . I M2 I * S ♦ ( * AJ2 I JP 1 I ♦ A J 1 ( JP 1 )) • X I Y I P ( J P 1 

. , IM2 ) / 2 . O 

P0I3PI1 « A J2 ( J J / 2 . O 

P 0 72 P » 1 » OXI I ( IM2]*X1YIP(JP1 , I M2 ) * S ♦ ( * AJ2 I JP I ) * A J 1 I JP 1 J J/2.0 

TOi|C1»(P01»»P0l3*P03»P0*»*P033**2)»ll«a(C2-U 

T 1 * P 0 1 t*POI3P9 HP018PI1 »P0I3*P03»P0**PS 1 

RIMP9 1 * G 1 * G 2 • S C ( IM1 , J , K ) * TO» T 1 as *C t • C2« TO* T 1 

TOa|C1»(P01*»POI3*P03*P04*+P033«a2)*l)a»(C2-t) 

T 1 iP01l*POI3PI 1 ♦ P 0 1 *P9 1 *P0I3*P03*P04|P9 1 

RJP91 ■ I G 1 * G 2 ■ S G ( 1 M 1 , J , K ) * TO»T 1 »S*6 1 »C2« TO* T 1 J/4.0 

TO* 1C I* I P0 1*«POI3*P03»P04»*P033a»2)a 1 ) ■ ■ ( 62 * 1 ) 

T 1 iP01I*P0I3PI 1 ♦PO 1 *P» 1 »POI3*P03»PO**PI 1 

RKP91 a | G 1 * G 2 « 5 G ( IM1 , J , K ) » TOa T 1 »S *C 1 » C2» TO* T 1 ) / 4 . © 

TO * G2 * 1 

T 1 * { G 1* (P01laPOI3YP03*P04**P033»»2 ) ♦ 1 )»»T0 
T2*P01I*P0I3P9 1*P0 1 1PI 1 *POS3*P03*PO*IP1 1 
T3* (C1» [ P027*P072*PO 1 2»P0*7»P042“»2 ) * 1 ) * » TO 

T*« P027»P072P9 1+P027P* 1 *P072*P0 1 2*P057P* 1 *P0 1 2P9 1 *P057*2*P0*2* 

. P042P9 1 

RJPP91 * [C1*C2*SG( IM1 , J P 1 ,K]«T3«T4*5 + G1»G2*SG1IM1 , J , X ) *T 1 *T2»S*G 1 • 

. C2*T3*T4*C 1 ■C2*T 1 *T2 } /4 . O 

TO* [Cl* |POU»P0l3+PO3*PO***PO33»»2)*l ) ■ ■ ( C2 • 1 | 

T 1 iPO 1 |aP0(3PI I + P 0 1 * P 9 I «P0I3*PQ3*P(MIP1 1 
RKPP91*{G!*G2*SG(lM1 t J,K)*TO*Tl*5^Gl»C2*TO*T1 J/4.0 

R E 5 P 9 1 * ( (PI(‘PI3)*RKPI1aTA33M+2*XIXXI(J, J)>QZIMF*RKPB1/02ETAC(K) ) • 
V 2 * ( ( - P*» + P! 13)«RKPP*1»TA33P*2«XIXX1(J, 1 )«O2INF*RKPP*1/0IETAC{K] J 
aV1*S» IRIMPI t»TAt2M* ( (P*3*P92-P»»'PI7)«TAJ2*|PI»-*PI1-PB3*P«2)» 

T A J 1 ) + (PII’P87)*RIMPSI»TAI 1M*2*OXINF*RIMP91/OXICf I ) !♦»• ( RJP* 1* 

T A 2 1 M* ( (PI»-P*I*P»4-P*3 )»TAt2*|PI*-PI7 + PI3-PI2 )*TAI 1 )*(P**-P*3)» 
RJP*1*TA22Mj+RJPP9 1 * T A2 1 P* ( |P»4*PI3*P#9*PI«)aTA12* { PS3 *Pf 2*PH ■ 

P * 7 1 * T A I 1 )♦ 1 P93-P** ) aRjpPI 1 ■ TA22P 
OCR * RESP91 


ELSEIP (CNO( I I , JJ.KK, IM1 , JP1 , K ) ) THEN 
PO 1 1 P»2 a OX I I ( IM1 ) *5 
OX I r ( IM2 J 
AJ2 t J J /2 . O 
A J 2 ( J } / 2 . 0 

I * A J 2 ( J P 1 ) ♦AJ 1 ( J P 1 ) J/2.0 
( * A J 2 [ J P 1 ) ♦ A J 1 (JP1) J/2.0 
{ - A 2 K [ K ) ♦ A 1 K ( K ) 3/2.0 
I - A 2 K ( K 1 ♦ A 1 K ( K J J/2.0 
AJ2|J)*XIYrPtJ, IM1J/2.0 
AJ2 |J)*X1YIP(J, I M2 J/2.0 
OXI 1 ( I M 1 )*A1 1 R ( JP 1 , IM1 |*S*( ■ 


AJ2 I JP 1 I *4J 1 IJP1 ) J*XIYIP{JP1 


PO 1 2P*2 
PO 1 7P92 
PO 1 *P*2 
P 0 2 • P * 2 
P 0 2 7 P 9 2 
PO* 1 P*2 
P042P92 
P 0 * 7 P 9 2 
P048P92 
P0S9P92 
. ,|M1)/2.0 

P OS 7 P t 2 ■ ( -AJ2( JP1 )*AJ1 ( J P 1 J >«XIYIP( JP1 . I M2 J / 2 . O* D X 1 I I rM2|*A1 1R( 

. JP 1 , IM2 ) 

P 0 * 2 P 9 2 • A J 2 ( J } / 2 .0 

P0S3P92 * A J 2 I J)/2 .0 

P07IP92 » OXII ( IM1 )*XIYIPlJP1 , IM1 ) * S ♦ ( -AJ2{JP!)*AJ! (JP1 ) J/2.0 

P072P92 * OX I 1 { IM2 ) • X I Y I P l JP 1 , I M2 ) ♦ I - AJ2 ( JP 1 ) *AJ 1 ( JP 1 ) ) /2 . O 

TO* (C1*{P017*P092 + P02*P047*P032**2)*1 ) • ■ ( G 2 * 1 } 

T1»PO17*POi2P92+PO17P92*POi2*P02*PO47P92 

RIPP*2*G1*G2«SG{ I .J,K)«TO«T1*S+Gl*G2*TO*T1 

TO* C2 - 1 

T 1 • | G 1 • ( PO 1 ••P0I3*P03*P04» + P033**2 ) ♦ 1 ]**T0 
T 2 »P 0 1MPOI3PS2»POl*P*2*POI3a-P03aP04*P»2 

R IMP* 2 a SC [ I Ml , J . K J * ( G1 ■G2*T1 ■T2*S*G 1 »C2* ( Cl « | PO 1 7 * PO * 2 +P0 2* PO *7 ♦ 

. P 0 3 2 * ■ 2 ) ♦ 1 ) ••TO* ( PO 17*POS2P*2pPO 1 7P92 a PQt2+PD2*P04?P92 ) ) ♦C1»62*T 1 
. * T2 

TO* G2 * 1 

T 1 • |C1«{P017*F04 2+P02*P04 7*P032»*2)»1 )»»T0 

T2*P017»P0*2P»2*Pai7P92*P0«2+P02«PO47P*2 

T3*G1«C2*T1»T2 

T 4 * { G 1 * ( P01 *«P0»3 + P03*P04* + P033*»2 J*1 )«*T0 
TS • PO 1 ••P0I3P92»P0 1 «P92* P0I3*P03»P04*P92 

RJP92* (SGI IM1 , J, K )* (Cl *C2*T4«TS«S+T3)*Gt»G2"SG( 1 , J, K)*T1»T2»S*C1* 

. G2» T4* T5+T3 J /4 . 0 
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1320 . 

132 1. 
1322 . 
1 323. 
13 2 4 
13 2 5 
1325 

1 327. 
132ft 
132* 
1330 

133 1. 

1332 . 

1333 
133* . 
1335 
133ft. 
1337 . 
133ft. 
1335. 
13*0 . 
1341. 
13*2 
13*3 
13*4 
13*5 . 
134ft. 
1347 . 
13*1 
134ft. 

1350. 

1351. 

1352. 

1353. 
135* . 
1355 
135ft. 
13*7 

1 35* . 
1 3ft » . 
13*0. 
13*1. 
13*2 

13 13. 

1 3 >4 

13*5. 

13**. 

13*7. 

1 3S* . 
13*1. 

1370. 

1371. 

1372 . 

1373 
137* 
1375. 
137*. 
1377 . 
137ft 
137*. 
13*0 
13*1. 
13*2. 
13*3. 
13*4. 
13*1. 
1311 
13*7 . 
13**. 
1311. 
13*0. 

1391. 

1392. 

1 3»3 . 
13f* . 
13*5 . 
1399. 
13*7. 
139ft 
1399. 
1*00. 
1401. 
1*02. 
1*03. 
1*04. 
1405. 
140*. 
1*07. 
140*. 

1 409 . 

14 10. 
1*11. 
1*12. 
1*13. 
14 14. 
14 15. 
14 1*. 
1*17 
1*11. 

1 4 1 * . 
t 420 . 
1421. 

1 422. 

1 423. 
1424 . 

1 425. 
142*. 

1 427. 
142*. 
142* . 
14 30. 
1431. 

1 432 . 

1433 . 

1434 . 
143* . 
143* . 
1437 . 
1439 . 
1439 . 

1440. 

1441. 
1**2 . 
1*43 . 

1444. 

1445. 
144*. 
1447. 
t 44ft . 
1449. 
14*0. 
1451. 


TO * C2 - 1 

Tt * ( Cl* f P0l7*P0ft2*PO2*P047'*P032**2 ) ♦ 1 ) * ■ T O 
T2»90 17»90l29l3^POnPI2*POI2*902«ftO<7M2 
T3 * C l * C 2 ■ T 1 ■ T 2 

T4* (Cl* (P01A*PQ*3+P03*P04**P033**2)*1 ) • ■ TO 
TI*P0 1»»POI3PI2^P0 1IM3«PO*3*P03»PO*IM2 

PKP92* tse I I Ml . J. K |« t C1*C2«T4*T5«S4T3 |*C 1 -C2*SG { I , J , K » *T 1 «T 2*5 + 6 1 ■ 

. C2* T4*T5*T3 } /4 . 0 

TO ■ C2 * 1 

Tli (GI*(PO17*PO*2* , P02*PO47*PO32**2)*1 } * ■ TO 

T2iP0l7«POI2PI3*PO17P»3*PD(2*P02»P0»7M2 

T3*G1*G2*T1*T2 

T4* (Gl»(Pfll**P0*3 , *‘P03*P04**PC33**21*1 ) • 1 TO 
TS*PO1A*P0A3PS2+PO1AP92*POI3*PO3«P04«P92 
Ti* (Cl ■ ( P02«»P071*P01 1iPOSI*P04 1 ■ » 2 ) * 1 ) ■ * TO 

T7 •PQ2«iP07 1P92*P02IPJ2*P07UPOM*P05IPI2*P0 1 1 PS 2>P0II»2*P0« t * 

. PD41PI2 
TI«G1 *C2*T«*T7 

T9* ( C t 1 [P027*P072‘* , P0 12*PQ57 , *PO*2**2) + 1 ) • * T © 

T1O*P027*P072P*2*P027P92*P072*P012*P0S7P»2*P012P*2*P0S7-»2*P042* 

. P012PI 2 

PJPPI2 * ISC( IM1 ,JP| . 1C ) * |GI*G2»T»iT10*S*T| )*SG( |M1 , J , K I • ( G < *C2*T<* TI 
. *S-»T3)*G1»G2*SG( I . JP 1 .K>*T»*T7*S-*-Gl*G2*SC( I ,J.K)*T1*T2»S*G1*C2*T9 

. •T104TI*CfG2»T4.T*^T3)/* 0 

TO * C2 ■ 1 

TI » (Cl* (P017*PO»24P0 2*P04 7'*-P032«*21 + 1 )**TO 

T2»P017*PO*2Pf2*P017Pt2*PO«2*PD2*P047P92 

T3*G1»C2*TI*T2 

T 4 • ( G T • ( PO I**POS3+P03*P04**P033**2 ] * 1 )«*T0 
TI>PQ1|*POI3Pt2*P0 1»P92*POI3*PO]iPOUPt3 

IKPPI2 » I SC ( l Ml , J, K 1 * |G1*G2*T4*T5*S*T31*G1*G2*S6( 1 < J,K)*T1*T2*S+6I* 
. G2* T4* TS-*T3 1 /4 . O 

DCS P • 2 * ( (P»4-P*31*PKP92*TA33M*2*XtXX] ( J , I) • 9 Z I N P • PKP 9 2 / D Z E T A C ( K) ) » 

. V 2 * ( f * PA* + P 1 13 } *ftKPPI2»TA33P+2*)l I X X 1 ( J , l I *0Z I HP * PKP F • 2 / 0 ZIT AC |K|) 

, * V 1 ♦ 5 » ( * IMPI 2* T A 1 2M* ( t P93+P92 - PA* -P*7 J * TAJ2* ( P***P*7 *P«3 -PA2 ) * 

. T A J 1 ) I 2M* T A J2 + ( P * ft -P*7 )*PIMP*2*TA1 1M+2*0XINF*PIMP*2/DXICI I 
) )**[PPI2*TAI2P«( ( P***P93“Pftft “PA* ) • T A J 2 ♦ ( P*9*P***P*4“P*3 ) *TAJ 1 )♦* 
. ■ IP JP»2*TA2 1M« M P*9-P***P*4 *P«3 1 *TA12* t P*« - P*7+P*3-P*2 | *TA I 1 J ♦ ( 

. PA»*PI3)MJPI2 , TA22M)*AJPPI2*TA21P»{ (P94-P93+P*9*P**)*TAI2*{P13- 
. P924P*«*P»7>*TA11 ) • ( ft JP» T A2 1 P* TA1 1 ) + [P>3*P** ) « ft JPP 9 2* T A2 2 P ♦ ( P*9 - 

. P»*)*PIPP92*TA1 1 P ♦ 2 » ©X 1 N P * A IPP92/0X ] C( I ) 

OEM > PCSPI2 


ILSIIF ( CND( 1 J , JJ . KK, I . JP 1 . X ) 1 THEN 
P01OP93 * 0X11(11*5 

PO 1 1 P 9 3 « DXIIlJMI} 

PO 1 9P93 « A J 2 ( J ) / 2 . O 

PO 1 7P93 * A J 2 I J 1 / 2 . O 

P02SP93 * I *AJ2( JP 1 ) »AJ 1 | JP 1 ) J/2.0 

P029P93 » I - A J2 ( JP 1 ) *AJ 1 ( JP 1 | ) /2 . O 

P040P93 * 1 • A2K ( K I *A I K ( K ) ]/2.0 

P041P93 * ( - A2K ( K ) ♦ A 1 K ( K )] / 2 . O 

P049P93 * A J2 ( J ) • X 1 V I P ( J , 1 ) /2 . O 

P047P93 « A J2 [ J ) • X I Y I P ( J . 1 HI J /2 . 0 

P055P93 * DXI I ( I ) » A 1 1 A [ JP 1 , I J * A ♦ l »AJ2(JP1 ) ♦ A J 1 (JP1 J ) ■ X ] Y 1 P ( JP 1 , I ) / 


I * A J 2 ( J P 1 )*AJI ( JP1 |J»XiriP(JP1 , I M 1 )/2.O*0)Hl(lM1 | * A t 1 R { 

AJ2 ( J ) /2 .0 
A J 2 ( J ) / 2 . 0 

OX m I I * X I V X P ( JP I . 1 1 *S* ( * A J 2 ( J P 1 ) +A J 1 ( JP 1 ) 1/2.0 
OXI I ( INI ) ■ X I Y IP t JP 1 . 1MI }♦( - AJ2 I JP I | ♦ AJ 1 IJP1 ) J/2.0 


. 2.0 
P059P93 
. JP I . IH1 ) 

PO ft 1 P* 3 
P0C2P93 
P 0 TOP 9 3 
P 0 7 1 P93 
TO * C7 * I 

T 1 » ( Cl* ( P017«P092*P02*P047*P032**2 )♦ 1 ) * • TO 
T2«P017*P092P93*P017PI3*PO*2*P02»P047P93 

PI P P 9 3 » S C I I , J.Kl*(C1*G2«T1*T2»S*C1"C3*(Cl« [P01 I* PO* I ^PO 1 ■P0*I«P03 1 
. • » 2 ) * 1 )»»TO»|P01 »* PO* 1 PI3*P0 1 *P*3*P0* 1 *P0 1 *P04*P93 ) l'*G1*G2*T1*T2 

AIMP|3»GMC2»SG( IM1 , J, K) « | G 1« (P017»P0I2*P02*P047*P032"2)» 1 )«• IG2* 
1 l * ( PO 1 7»P0«2P*3^P0 1 7PI3*P0I2*PQ2 , P047PI3 I 
TO * G2 * 1 

TI * (G1 • ( P017»PO*2*P02»P04l»P032 ,, 2 } ♦ 1 1 » *T0 
T2* PO 1 7*PO*2P93*PO 17PI3»PO«2*P02»P047P53 

RJPI3i ( SGI I , J , K I « I G1*C2»T1»T2«S*GI»G2» (Cl* ( PO 1 POI ) >P0 1 *P04»*P03 I 
■ • 2 ) * 1 ) • * T O • ( P01 * * P 0 * 1Pt3 + PD1APA3*P0A1*P0! »P0**PI3 J )*G1»C2*SC( IM1 
, J . K | • T 1 • T2*C 1 » G2 • T 1 * T2 J /* . O 
TO* C2 * 1 

7 1 » t C 1 * [ P01 7*PO*2*P02*P047+P032**2 ) ♦ 1 ) ■ ■ TO 
T2*P01 7*P0*2P93>PQ 17P*3»P0*2*P02*P047P93 

PKP * 3 * (SGI I , J, K|* I G l*C2*T1*T2*S*C1*G2* [G1*(PO1**PO*HPQ1*P0*»*P031 
» ■ 2 J ♦ 1 } * * T O* ( PO 1 * * P 0 * 1 P • 3 ♦ P 0 1 *PI 3*P0I 1 *P0 1 *P04IPI3 ) )+C1*C2*SG( IMt 
. , J . X ) • T 1 » T2*G 1 • C2 * T 1 *T2 ] / 4 . 0 

TO » C2 - I 

TI * ICI*(P017*P0«2*P02»P047*P032*»2)*1 )**T0 

T2*P0l7*P0l2PI3*P017P»3*PO«2*P02«PO47PI3 

T 3 ■ [ Cl* ( P02**PQ7 1 ♦ P 0 1 1 • P0H + PIJ4 1 * * 2 ) ♦ 1 | «*T0 

T4iP0 2*»P07 1PI3*P02*P*3»P071tP01 1 *POS IPI 3 *P 0 t 1 P I 3*P0I l*2*P04 1 » 

. P04 1 PI 3 

PJPP93* |3G( I , JPl ,K)*(G1*G2«T3*T4*S+G1*C2*(CI*(P025*P070*P010*P01S* 
P04O«»2 )*l )**ro*(P02l»P07OPI3*P02IPI3»P070*P010*P0IIPI3*P010PI3» 

. P055* 2 ■ P040* P04OP*3 ) ) *90 ( I , J , It ) » ( C 1 *C2« T 1 * T2*S*G 1 » G2 • 1 C 1 • ( PO 1 •* 

. P0I1*P01*P04MP031»«2) + 1 ) * * T O * ( PO 1 * * P 0 * 1 P 9 3 * P 0 1 *P»3*P0«1*P01 ■ 

. P04CP93) )*G I *G2»SG I IMI , JP 1 , K)*T3*T4*G1*C2*T3*T4 + G1*02*SC( IM1 , J ( K J 

. *TI*T2+GI*G2*T!*T2)/4.0 

TO » C2 ♦ 1 

TI* ( G 1 * ( P01 7*PO*2 + P02*P047 + P032**2 ) * 1 J«*TO 
T2«POn»P0*2P»3*PO17PI3«P0*2*P02»P0*7P»3 

PKPP93* ( SC ( I , J,K|* [ Cl »C2*T 1*T2*S+Gt*G2* 1 G 1 ■ ( PO1B»PO«1+POI*P0 4* + 

. PO31**2)*l)**TO*(P01l»P0»1PI3tP01«PI3*P0l1*P01*P04*P»3)j4Cl*C2*JG 

(IMt 1 J,K|»T1*T2*Cl*C2*Tl*T2)/4.0 

P E S P 9 3 • ( |P»I-PI3J*XXPI3»TA33M+2*XIXKI (J, I )*0ZINP*PKP93/DZETAC(K) )• 

. V 2 ♦ ( I * P 4 # ♦ P 1 1 3 (*PKPPI3*TA33P*2*X I XX I I J , I )*OZINP*PKPP*3/02ETAC(K) ) 
• V t ♦ S * ( RIP4P93*TA12M* ( (Pf3*P92-P94*P*7) • T A J 2 * ( P99*P97“P*3~P92I* 

. TAJ1 (♦PIP4*TA1 2M« TAJ2+ ( P99 -P*7 ) *P IMPI3* TA MM*2*0X I MF*P1 MF5 3/DX I C ( I 
) ) ♦PIPP93* TA12P* ( ( PI4 + PI 3 - Pit «P4* | » TAJ2* ( PBft^PIA 'P94-P93 } *TAJ1 )♦ 

. PI P* T A 1 2P* TAJ2+S* I XJPI3* T A2 1 M* ( tP*9-P***P»4*P*3)»TAI2«MP*9-P97* 

. P83*P92 ) *TAI 1 }♦( P99-P93 ) *PJP93*TA22H) ♦PJPPf3*TA21P* I (PM -Pt3*P|* • 

. P»*3*TAI2* [ PI3’PI2»PIA*PI7)*TAI 1 }*PJP*TA21P* ( -TAI2 + TA! 1 ) + (P*3-P»ft 

) *AJPPI3 , TA22P*AJP*TA22P*( P*t-P** )*PIPP»3*TA1 l P + 2*0X I NF* A 1 PPS3/ 

. DK I C ( I J 
OEP * PISPI3 


EISEJF (CND( I I . JJ.KK. !P1 . JPl , K) ) THEN 
P01OP94 * 0 X X I ( J ) 

A J 2 I J ) /2 .0 

( * A J2 [ JP 1 ) +A J 1 (JPl) 3/2.0 
( - A 2 X | K ) ♦A I K ( K ) ) /2 . O 
A J 2 ( J»*XI YIP( J, U/2 .0 

t • AJ2( JP 1 } ♦ A J 1 ( JP 1 ) I • X I YIP ( JP 1 , I ) /2 . ©*0X I I ( I ) • A 1 1PIJP1 , I 


PO 1 *P*4 
P02SP94 
P 0 4 OP 9 4 
P04IPI4 
P0SSP94 
. ) 

PO* 1 P94 
P 0 7 OP • 4 


A J 2 ( J ) / 2 . O 

OXI I (1)*XIY1P( JPl . !)♦{ -AJ2( JP! 1*AJ1 < JPl n/2.0 
I I PPI4 *C 1 *G2*SC ( 1 ,J,K)*(GI*(P01l*POI1*P(Jt*P04|»P031»*2)*1 )**(C2*1 ) 
. • I P01 *»POA 1PA4*P0 1 SPAA* PO* 1 *P01*P04*P9 4 1 

PJP*4*G1*C2*SG(1 , J , K)*(6t*{P01A*P0*1+P01«P04A*P031**2) + 1 l**IG2*1 )• 
. [P0 1A*P0(1P«4^P0I*P|4*P0(UP0 1»P04*PI4 1/4.0 

PKP*4*G1*G2*SC( I ,J,K)»(GI*(P01MPO*1+P01»P04*4P031»»2)+ll»»(G2*1 )* 
. (P0 1*»POI1P»44P0 1«P»4*PO*UPOI*P 04 AP94 1/4.0 

T O « C 2 * 1 

kJPPIfti ( C 1 * C 2 • S C ( I .JPl .K^fCIvfPOlSvPOTO-rPOIOaPQSS+POftO**!)*! J**TO 
• ( P02S*P070PI4*P02IP|4*P070*P010*POS$P»4*PO 1OP9**P0SS* , 2*P04O« 

P0 4OP* 4 )*G1*G2*SG|I,J,K|*(G1*|P01I*POII^P01*P04I«P031**2)^1)**TO* 
. I POt|.pOHPI4*POl*PI*«PO«UPOI»P04»P*4| 1/4,0 
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887 
881 . 
8*8 . 
*10 . 
*81. 

• 12 . 
*•3 . 
*•4 . 
IIS . 
tci . 
*17 . 
1*1 . 
SSI . 
*70 . 
*7 1 . 
*72 . 
*73 . 
*74 . 
*78 . 
878 . 
177 . 
87* . 
171 . 
8*0 
8*1. 
1*2 
1*3 


RKPP14*G1*G2*SC( I , J , K | • ( C 1 • ( 10 I MPOI 1*40 1«F0*I*103 1 *»2 ) ♦ 1 | * » I C 2 - 1 ) 
. * ( 10 1 l*POt 1 1P84»P01 1 +10 1 »P0* IM 4 )/4 . 0 

R E 8 P 1 4 • ( (P81-P13)*RKP14*TA33M*2*XIKX] ( J , I )*QZINP*RKP84/DZETAC{K) J« 
. V 2 ♦ ( ( ■ 1*1 + P1 13)*RKPP14«TA33P<-2*XIXXI ( J, I ) *0 Z I MMXK1PI 4/02ETAC I R ) ) 
. » V 1 +RIPP14* TA1 2P* { ( MI»M3*PH -!■*) *TAJ2* | P*1*P1*-P*4 -p*3 ) *TAJ1 ) ♦ 

. RIP»TAI2P*TAJ2*S*{RJP14«TA21M«( |MI-MI*PI**M3)*TAI2+|PI»*147* 

. P83-P82)*TAI 1 ) ♦ ( P 8 1 - P 1 3 ) *RJPS4«TA22M) ♦RJPP14*TA2 1 P • ( (P1A-P13+P1*- 

. Pl*)»TAI2+(P13-P12*Pft4-P17l#TAI 1 )-*RJP*TA2 1 P • T A 1 2* | P I 3 * P * 1 ) ■ R J P P 1 4 

. • TA22P'*(P8t-Pl*)*RIPP14*TA1 1P-*2*0XINF*RIPP14/DXIC( I ) 

DEI « 1ESP14 

ELSE IP ( C N 0 ( II , J J , RR , I M2 , J P 2 , X ) ) THEN 
P027P1 1 ■ A J 2 I JM 1/2,0 

P0S7P1I • AJ2 1 JP 1 1 « X I Y I P ( JP 1 , IM2 1 /2 . 0 
P072P1 8 ■ AJ2(JP1 1/2.0 

TO* (Cl* (P027*P072^P012*P087 + PQ42**2 )♦ 1 !•» ( G2 ♦ 1 J 

TI«P027*P072P»lPia27Pf**P072PPOl2»POS7Pil 

1JPP11* ( C 1 * C 2 * S C 1 IMI , JM , K 1 *TO*T I *S«-C 1 «02*TO*T 1 )/4 . o 

1ESP11*1JPP11*TA21P* ( ( P14-P13+P11-P11 )*TAI2*(P13-P12*P**-P17)*TAI 1 
) ♦ ( P13 - Pll } » 1 JP P » T A2 2P 
DEI * RESP11 

ILSCIF ( CND ( I 1 , J J , RR , l Ml , JF2 , R ) 1 THEN 
P021P17 * A J 2 ( J P ! 1/2,0 

A J2 ( JP J 1/2.0 

AJ21JPI )*XIYIP| JP1 , J M 1 J/2.0 
A J 2 { J P 1 1«XIYIP[JP1 . I M2 1/2.0 
A J 2 (JMl/2.0 
AJ2(JM 1/2.0 


P027P17 

p a s i p 1 7 

P0S7P17 
107 1 P17 
P072P17 
TO * C2 • 1 

T1*|61*|102I*1071*10H*1081*104I«*2|*1)* , TO 
T2*P021»1071117 + P021PIT*P07 1*101 1*P08*P17 
T3*C1»C2*T1*T2 

T 4 * ( C 1 * (P027*P072*P012*P0S7*P042**2)+1 »««TO 
TS*P027»P072P174P027P17-P072*P012*PaS7P17 

RJPP*7*(SC(lMt 1 JPl,K)*(C1*G2*T4*Tl*S*T31-*G1*G2«SG(I,JP1,K]*T1*T2»S 
. *G 1 * G2 *T4* Tl* T3 ) / 4 . O 

1ESP17 *1JPP17*TA2 1 P* I ( 114*113*111 • P 1 4 ) * T A I 2 ♦ ( P13 *P12*P11-P*7 ) *TAI 1 
1 ♦( P13 -Pll ) *RJPP17*TA22P 
DEI * 1ESP17 

E LSI t F (CNO( I 1 ( JJ,KK, I , JF2 , R ) ) THEN 


AJ2I JM 1/2.0 
AJ2j J11 1/2.0 
A J 2 ( J P 1 l*XIYIP(JP1 t l)/2.0 
A J 2 ( J P t 1*XIYIP(JP! , INI 1/2.0 
A J2 ( JP 1 1 / 2 . O 
AJ2{ JM 1/2.0 


102S1II 
P 0 2 8 P 8 t 
P0SSPS1 
POSIPII 
P07OP11 
P07 1 Pll 
TO* C2 - 1 

71 * ( C 1 * ( 1021*107 1 ♦ P 0 1 1*1011^104 I • * 2 ) ♦ 1 )**TO 
T2 • 1021*107 1 P91*PQ2IPS1*P071+P0 I 1 *P0S1P11 

1JPP11* (SCI 1 ,JP1 .K)*(C1*e2*TI*T2*S+Gt*G2*|Gt*fP02S*P07O*P010*P0SS« 
. 1040* » 2 ) ♦ 1 ) * * T O • (P02S*P070Pl**P021P91*P070*!0 10*ia5IP»l) |+G1 *62* 

. SC( IM1 , J1 I ,K)*T1*T2*C1*C2*T1*T2)/4.0 
1ESP11*RJPP11*TA21P*(|P14-P13^P*1-P11)»TAI2*(PI3*P12*P11-P17|*TAI1 
) ♦ ( PI 3 -Pll ) *RJ1P1 1* T A22P 
DER * RESP11 

ELSEIP |CND( II, JJ.RR, 111,J12 t K)l THEN 
PD2SP1 1 * A J 2 I JP 1 1/2.0 

POSIPII » AJ2 I JP 1 1 *X I Y I P ( JP 1 , I 1 /2 . 0 
P070PS1 * AJ2| J1I 1/2.0 

RJ1PIS*C1*C2*SC( I , JM , K | * I C 1 * | !02S*!070-*!0 1 0*10I5*1040**2 ) ♦ 1 )**(C2 
- 1 )*|P028*P07OPII«P02im*P0TO*P01O*10fll«l 1/4 o 
RESPfl *RJPP11*TA2 IP* | ( 114*11 3*111 *114 ) * T A I 2 ♦ ( P13 -P12+P81-P17 ) *TAI 1 
» ♦ ( PI 3 -Pll ) * R JPPtl * T A22P 
DER * Resit* 

8 

ELSEtF ( CNO ( 1 I , J J , KK , I M2 , JMt , KP 1 J ) THEN 
P03OMOI * - I 1 . 0/2 . O* AJ 1 ( J ] J 

1031MOS * A2K(R)/2.0 

10*01101 * * ( 10/2. 0*AJ 1 ( J ) *XIYIP( J. IM2 ) | 

P07BP101 * - ( 1 . O/ 2 . O* A J 1 | J ) ) 

TO* ( C 1 • ( P02 1 »P0I8*10S 1 *P01*-PQ31**2 )♦ 1 ) *■ ( C2 - 1 ) 

R JP 1 OS * (2*G1*C2«SG( I Ml , JM 1 . K | * 103 1*103 SP 1 O I ■ TO* $ * 2 ■ C 1 * C2 * 1031 * 

. P031P101* TO 1/4.0 

TO* 1 Cl* I 1030*1078>PO 1 8 *1010*104 5**2 ) ♦ 1 )•• ( C2 - 1 ) 

T 1 *103O*PO78P 1OI+P03OP 1 0 1 * 1 0 7 1 ♦ P 0 1 * • P 0 1 0 P lOS 

RKIMOI* [ C 1 *C2*S C [ I Ml , J, KP 1 ) »TO»Tt»S*C 1 *C2*T0*T I J/4 .0 

RESP101* ( ( - P 1 * * 1 1 13)*RKPP108*TA33P* , 2*XIXXI (J, 1 )*02INP*RKPP101/ 

. DZETAC ( K) 1 * V 1 +S * |RJP101*TA21M*( (P11-P**PP14-P131«TAI2*(P1*-P17* 

. P*3-P12 1*TAI 1 )♦ ( P 1 * - P * 3 ) *RJ1 108* TA22M) 

OER • RES P 10 8 
7 

ELSEIP (CNOi I I , JJ, RR , I M 1 , JM 1 , KP1 ) } THEN 


■ ( 1 . 0/2 . O * A J 1 ( J ) ] 

• ( 1 .O/2.0*AJt{J) ) 

A2R I K ) / 2 . O 

A 2 K ( K ) / 2 . O 

* ( 1 . 0 / 2 . 0 • A J 1 (J1*XIYIP(J. I M I ) ) 
-( 1 . 0/2 . 0* A J 1 (J[*XIYIP(J, I M2) ) 
- (1 . 0/ 2 . O * A J 1 ( J 1 ) 

-11.0/2. O * A J 1 ( J 1) 


P 0 2 1 1 1 07 
10301 1 07 
P03SP 107 
P 0 3 BP 107 
P0S1P 1 07 
10101 107 
P074P 107 
P07BP 107 
T O * G 2 * 1 

T 1 * ( C 1 * ( P020* P015*P08*!Q80'*P035* *2 ) ♦ 1 )**TO 
T2*2*C1*C2*P038*P038P107*T1 

T 3 * (Cl* (P02t«P011*P081*P01*P031*»2)*l l**TO 

RJPIOT* (SC( I M 1 , JM 1 , K )* ( 2*C1*G2*P03S*P03tP1O7*T3*S+T2)+3*C1*G2*SC( I 
. , JM1 .K)*P038«P03BP107»T1*St2*C1*C2*P031»P031P107*T3*T2l/4 .0 

TO * C2 • 1 

T 1 ■ (Cl* (1021*1074»P014*10»I*P044**2) + 1 ) ■ • TO 
T2»102I*107A1107*P0211I07«1074»1014*10I|1107 
T3*C1*C2*T1 »T2 

T 4 » (Cl* ( P03O*P078*P0 1 8*101O*lO4l**2 ) ♦ 1 )**T0 
T5*P030*107SP 1O7+P03OP 1 07»107S*10 1 8*10101 107 

RKPPI07* (SC( IMI , J.R11 1*(G1*G2*T4«TS*S«*-T3)»G1*G2*SC( I,J,KP1 ) • T 1 • T2* 
. S*C 1 *C2*T4»T8+T3 ) /4 . O 

AISP 1 07 * ( ( -P*»*P 1 13 }«RKPP10?*TA33P+2*XIXXl (J, I )*0ZINP*RJCPP107/ 

. D2ETAC(tCj )*V 1*S* ( RJ1107*TA21M* ( ( PS9-PSS+PS4-PS3 1 *TAI2+(P81*P17* 

. P83-P12 ) * T A I 1 1 ♦ ( P ft * - 1 • 3 ) *RJP 107*TA22M) 

OER » RESP107 


ELSEIP ( CND ( I I . J J , RR . I . JM1 , KP 1 J ) THEN 
P02SP1O* • • ( 1 .0/2 . 0«AJ1 { J ) ) 

- ( t . 0/2 . 0*AJ 1 ( J ) ) 

A2K ( K ) / 2 . O 
A 2 K ( K ) /2 . 0 

-I 1 .0/2 . O * A J 1 (J)**IYIP(J, I ) 1 
* ( 1 . O / 2 . O* A J 1 (J)*XIYIP(J, IMI ) 1 

- ( 1 .0/2 . O * A J 1 ( JJ ) 

- ( 1 .0/2 . O * A J 1(J|) 


P021P lO* 

P034P tO* 

P03SP to* 

POSftP 1 Oft 
105111 O* 

107311 O* 

P074P10* 

TO * C2 ♦ 1 

T 1 « (Cl* ( P02O*P0l5*P0l*P0SO'*P035**21+1 l**TO 

AJltOli (SC( I , JNt , K ) • ( 2 • C 1 *C2*P03S*P03SP 1 O* » T 1 * 8 ♦ 2 ■ C 1*62*P034* 

P0341 lOI* ( Cl* ( P01S*P0S4PP04*104*PP034**2)P 1 )**T0l+2*C1 *C2*SC( (Ml , 
. JM I , K ) *P035*P03SP tO»* T 1 ♦ 2 * C 1 *C2*P035*P038P 1 Oft»T 1 1/4.0 
TO* C2 * 1 

T 1 * (Cl* ( P021*P074* , P014*P051*P044**2) + 1 )*»TO 
T2*P028*10741 101*10211 )OI*1074*10 14*10311 108 

RKPP101*(SC( 1 , J , KP 1 )*{C1*C2*T1*T2*S + C1*C2*IG1*(P02ft*PQ73 + P013*P011 
. ♦P043**2)*t ) * • T O ■ ( P021* P073P 1OI + 102I1 10l»1073*10 1 3*101111 01 1 ) *G 1 ■ 

. C2*SC(IM1,J.KP1)»T1*T2*G1*G2*T1*T2}/4.0 




TTTTT 

15*5. 

15*6 

15*7. 

ISA*. 

15*5. 

t sao . 
1591. 
15 9 2. 

1 593. 

1 594. 

1 595. 
15 9*. 

1 5 9 7. 
15 9*. 

1 59 9. 

1 soo . 
1*01. 
1*02. 
1*03. 

1 *04 . 
1*05. 
1*0*. 
1*07. 

1 *0* . 

1 *09 . 
1*10. 
1*11. 
1(12. 
1*13. 

1 S 1 4 . 
1*15. 
1*1*. 
1*17. 
1*1*. 
1(19. 
t *20 
1*21. 
1*22. 
1823. 
1*24. 

1 *25 . 
1(2*. 
1*27. 
1(2*. 
1*29. 
1*30. 
1*31. 
1(32. 
1*33 . 
1*34. 
1135 . 
1(3*. 

1 *37 . 

1 S3* . 

1 *39 . 

1*40. 

1*41. 

1*42. 

1*43. 

1*44. 

1*45. 

1*48. 

1*47. 

1*4*. 

1(49. 

1*50. 

1851. 

1*52. 

1*53. 

1154. 

1(55. 

1*5*. 

1*57. 

1(5*. 

1(59. 

1 BSO . 

1 BS 1 . 
1**2. 

1 (*3 . 

1**4. 
1*85. 
tilt . 
1**7. 
ICC*. 

i s*i . 

1*70, 

1*71. 

1 *72 . 

1 *73 . 

1 874. 

1 875. 
1*7*. 
1*77. 
1*7*. 
1(79. 

1 680. 
1**1. 
1**2. 
11*3. 
1**4. 
1**5. 
18 * 4 . 
1**7. 

1 III . 
1**9. 
t *90 . 
1*91. 
1*92. 
1*93. 

1 894. 

1 (9 S . 
1(98. 
1*97. 
1(9*. 
1**9. 

1 700 . 

1701. 

1702. 

1 703 . 

1 704 . 

1 705 . 

1 70* . 

1 707 . 
170* . 
1709. 
17 10. 
17 11. 
17 12. 
17 13. 
17 14. 
17 15. 


RES P 10 41 ( [•PII*P113) , 8K^P10*»TA33P*2*XI)tII [J, l ) *02 I NP *RRPP 101/ 
QZETACIK) | » V 1 * S • { R J P 104*TA2 I M‘ | ( P« » - P « i * P « < - P * 3 ) * TA I 2 ♦ ( P II • P*1* 
. P83-P*2)*TAZ 1 ) ♦ ( PII*PI3)»RJP10I«TA22M| 

OCR * RESPIO* 


EISEIF | CNO { I I , JJ , KK , IP 1 , JM1 , KP 1 ) J THEN 
P02IP 109 * * t 1 . 0/2 . O* AJ t | J ) ) 

P034P 109 » A2 K ( K ) / 2 . O 

P05IP1OJ t - ( 1 . 0/2 . O* AJ 1 [ J ) • X I Y 1 P | J , I ) ] 

P073P109 * * I 1 . 0/ 2 . O* A J 1 ( J ) J 

RJPI09*C1»C2*SCI I , JM 1 , K)*P034*P034P1O9* ( C t* ( PO 1 l*P0M*P04*P0ll* 

. P034»*2) + 1 ) * * ( C2*l )/3.0 

PUP P 1 01 » C I ■ C 2 * S C ( 1 ,J, KP1 )» | G 1 * |P02I*P073*P013*P05I*P043**3)*1 ) * * ( 

. G 2 * 1 )*(P02**P073P109*P02*P l0l*P073*P0 13 1 P05IP1OJ 1/4 .0 
RE5P109 1 ( [ * P 8 * ♦ P 1 13)*RKPPtOI»TA33P*2»XIXXI ( J . I )*0ZZNF*RKPP109/ 

. 02ETAC ( K) ) ■ V 1*5* I RJP109*TA21M* ( (P*9 -P*8*PA4-P*3 ) *TAI2+(P**-P*7* 

. P 8 3 * P * 2 I * T A I 1 )*{P85-P83)*RJP109«TA22M) 

0E« « RESP109 

1 1 

ELSEIF ( CND [ I 1 , J J , KK , !M2 . J . KP 1 J ) THEN 
P0I5P111 * OX I It IM2 ) •$ 

F030P111 * I * AJ2 ( J | + AJ t ( J | 1/2.0 

P033P t 1 1 i A 2 K | K ) / 2 . O 

P 0 4 5 P 1 1 1 i | -A2K( KP1 )+A1K(KP t ) ]/2 .0 

P0IOP111 i DXI t ( I H2 ) * A 1 1 R ( J , I M2 ) * S ♦ I *AJ2(J)*AJ1 ( J ) )*XZYZP{J, 1 M2 ) / 

. 2.0 

P075P111 • 0 X I I ( I M2 ) » X 1 V I P ( J , IM2 ) *S* { - AJ2 1 J J ♦AJ 1 ( J } J /2 . 0 

TO* ( C 1 * (P01**PO*3*P03*P04**P033»»2)*1 ) • » ( C 2 - 1 } 

RIMP1 1 1 * 2 • C 1 * C2 * S C ( I M 1 ,J,K)*P033*PQ33P1 1 1»TO*S + 2*C1*C2«P033» 

. P033P 1 1 1 • TO 

TO* I Cl* ( POII*POI3+P03«PO*l , »PO33**2 | ♦ 1 )•* ( G 2 * 1 ) 

RJP1 t 1 * | 2*C1*C2*SG( IM1 , J,X) »P0 33«P033P 1 1 1*TO*S*2*C1*G2*P033» 

. P 0 3 3 P 1 1 1 * TO ] / 4 .0 

TO* ( Cl* (PO II*P0I3+PD3*P0*I»P033 , *2|*1 ) • • [ C2 - 1 ) 

R K P 1 1 1* (2*C1*C2*SC| I M 1 ,J,K)«P033*P033P1 1 1*T0*S*2*G1*G2*P033* 

. P033P 1 1 HT0J/4.0 

TO* |C1*(PC1«*P0«3 + PQ3»P04I*P033 ,, 2|^1 l G2 - 1 ) 

RJPP111*(2*G1*G2*SC{IM1.J.K)»P033*P033P111*TO«S*2*C1*C2*P033» 

. P033P111* TO )/4.0 

TO « C2 * t 

T 1 » (Cl* ( P01l*P0l3*Pfl3 , P0*l + P033* , 2j*1 | * » T O 
T2* (C 1 * ( P03O*P07J *P0 1 5*PQ*O*P045*«2}*1 ) ■ » 7 O 

T3*P03O*P075P 1 1 1 ♦ P 0 3 O P 1 1 1*P07I*PO 1I-P0IOP1 1 1 ♦PCM IP 1 1 1*P0«O*2*P04S» 
P 04 5 P 1 1 1 

R K P P 1 1 1 • ( C 1 • G 2 • S G ( I M 1 ,J,KP1 )«T2*T3*S*2«G1*C2*SCt IM1.J.K)*P033* 
P033P1 11*T1*S*Ci*G2*T2*T3*2*C1»C2*P033*P033Pl I 1 • T 1 j /4 . 0 
RESP111*( ( PII'PS3)*RXPt 1 1*TA33M«2*XIXX! ( J „ I |*02INP*RKP111/D2ETAC(K 
J ) * V 2 ♦ l ( * P 8 8 ♦ P 1 1 3 I * X K P P I 1 1»TA33P*2 , X3XX1 ( J, I ] *0 Z I Nf ■ RKPP 1 1 1/ 

. DIET AC | K J ) *V 1 *S* I R IMP 1 1 1 «TA 1 2M» ( t P*3*Pt 2 ■ PS* -P*7 ) *TA J2* ( PAI4PI7 * 
P*3*P*2)*TAJ1 )♦( P4I*PI7)*RIMP1 1 1 » T A 1 1 M* 2* OX I MP * R t MP 1 1 1 / 0 X Z C { Z ) Z *S 
. * ( R J P 1 1 1 * T A2 1 M* | |P*9-P*I>P*4-P83]»TAZ2*(P8*-P87*P*3’P*2)«TAI 1 » * ( 

. P**“P«3 ) ■ R J P 1 I1*TA22M)*RJPR I 1 1 ■ T A2 1 P • J (P*4-P|3*Pe9-P84)*TAI2*|P*3 

•PI2*PII*P*7 ) * T A I 1 Z*(P93*P8»)*XJPP1 1 1 ■ T A 2 2 P 
DER * RES P t 1 1 

2 

EISEIF { CNO ( Z 1 . J J , KK , Z Ml . J , KP 1 )) THEN 

P0MP1 12 * OX I I t ZM1 J »S 

PO 1 SP 1 1 2 * OX I I | ZN2 I 

P029P112 * ( -AJ2 I J)*AJ 1 I J ) )/2.0 

P 0 3 OP 1 12 * ( ~AJ2(J)*AJ1 (J) 1/2.0 

P032P1 t 2 * A2K(Kl/2.0 

P033P 112 * A2K ( K ) / 2 . O 

P 0 4 4 P 1 12 i | -A2K(XP1 )*A1K|KP1 ] 1/2.0 
P045P112 * | - A2K I KP 1 j *A I K | KP 1 ) ) /2 . O 

P 0 5 * P t 1 2 * DXI Z{ IM1 )*A1 1 R [ J , Z M 1 A J 2 ( J ) ♦ A J 1 | J ) ) • X Z Y I P ( J , 1M1 } / 

. 2.0 

P0 80P 1 1 2 * ( * A J2 ( J [♦A J 1 ( J ) ) * X I Y I P | J , ZM2I/2 .0*0X11 ( I M2 ) * A 1 1R(J, ZM2) 

P074PI 12 • OX I I [ I Ml ) ■ X I V Z P ( J , 1 Ml ) *5* t - AJ2 I J ) *AJ 1 ( J 1) /2 . O 

P075P112 * OX I I ( 1 M2 ) • X I Y I P ( J . I M2 J ♦ ( *AJ2 ( J ) *AJ 1 ( J )) /2 . O 

TO*(Gl*[POJ7«POS2*P02«P047*P032**2)*1 ) « « ( G2* 1 ) 

RIPP1 1 2 * 2 « G 1 * C 2 * S C t I , J , K ) *PC32* P032P 1 12*TO*S*2«C1»C2*P032*P032P1 12 
. * TO 

T 0 * G 2 * 1 

T I « (G1*|P01B*PO(3*P03»P04**P033*«2)*1 )*»T0 

RZMP1 1 2 * S G ( 1M1 ,J, K ) • [ 2»C1«G2**033*P033P1 12*T1*$ + 2«C1*C2*P032* 
P032P1 12* [ G 1 • I PO )7*POI2 + P02*P047*P032**2 ) * 1 ) • • TO |*2*C 1 *C2*P033* 

. P033PI12*T1 

TO * C2 • 1 

T1 ■ f C 1 * (P017*PQ*2*P02*P047*P032**2|*1 J**TO 
T2*2»C1*C2*P032*PD32P1 12*T1 

T3* {C1*{P01**P083*P03*P04**P033*»2|*1 ) • • TO 

RJP1 12* (SCt ZMt ,J, K)*(2»G1*C2*P033*P033P1 12»T3*S*T2}*2»G1«C2*SC( Z .J 
. , K | *P032*P032P 1 1 2*T1*S*2*G 1 *C2*P033*P033P 1 12«T3*T2)/4.0 

TO ■ C2 - 1 

T 1 *(C1*(P017*P082*P02*P047*P032*«2l*t ) ** TO 
T2* 2*C t *C2*P032*P032P 1 12*T1 

T3*(C1 , (P01I»PO«3*P03*P04I*P033**2|*1 ) * » TO 

RKP1 12* (SC( I M 1 , J , K ) * ( 2*G 1 *G2*P033*P033P 1 12*T3*S*T2)*2»C1«C2*SC[ I ,J 
, K )*P032*P032P 1 12*T1*S*2*G1*C2*P033*P033P1 12*T3*T2]/4.0 
TO * G2 * 1 

T 1 * (Cl* ( PO 1 7*PQI2*P02*P047*P032** 2 ) ♦ 1 J * * TO 
T2* 2* G 1 *C2*PQ32*P032P 1 12*T1 

T3* { Cl * ( PO l**POI3*P03*P048*P033**2 ) • 1 J * • T 0 

RJPP1 1 2 * ( S C ( I M 1 ,J.X)*(2»C!»G2*P033*P033P1 12*T3*S*T2)*2*CI»C2*SG( 1 . 

J,K)*P032*P032P112*T1*S*2»G1*G2*P033»P033PM2*T3*T2)/4.0 
TO* C2 • 1 

T 1 * ( Cl* 1 P017»P082*P02*P047*P032*"2)*1 )»*T0 
T2*2*G1*G2*P032*P032P 1 12*T1 

T3* | Cl* I PO 18*P0S3*PQ3*P04i*P033**2)*1 ) * * TO 
T4«(C1*(P029*PO74*PO14»POSf*P044»»2)*1}»*TO 

TI*P02l*P074Pl I2 + P02IP1 1 2 * P074* PO 1 4* POS I P I 1 JPP0UP1 12«P059 + 2*P044* 
P044P 1 12 
T*»C1*G2*T4«T5 

T 7 * lC1*(PQ3O*P075 + P015*P0IO*PO45**2)*1 |**T0 

T8 * P030*P075P I 12*P030P1 1 2* P075 + P0 1 S*POIOP 1 12*P01»P1 12*P0«O*2*P04S* 
P04SPI 12 

RKPP 1 12* (SCt I Ml . J.KP1 ) * (C1*G2*T7*TS*S*TI ) *S G ( IHl ,J,K)*(2*C1*G2* 
P033*PQ33P 1 12*T3*S+T2)*G1»G2*SG( [ , J , X P 1 )«T4*T5*S*2*C1*G2*SG(Z , J,K 
)*Pa32*P032Pt12»T1*S*G1*G2*T7*T**T**2»Cl*G2»P033*P033P112*T3*T2)/ 
4.0 

RES P 1 12* t |PI8*PI3)*RKP1 1 2* TA33M*2* X ZXXZlJ, J )*O2ZNF*RKPI12/02ETAC(K 
) ) * V 2 + ( ( “ P • 8 ♦ P 1 1 3 ) *RKPP 1 12*TA33P*2*XIXXZ (J. l)*OZZNF»RKPP112/ 

. 02ETACIK] ) * V 1 *S* t R1 MP 1 I2*TA12M»( jP13*P12-P88-P*7)*TAJ2*lP*»*P*7« 

. P*3-P*2)*TAJ1 ) + |P8»-P87)*RIHP1 12*TA1 IM*2»0XINP*RIMP1 1 2/OX I C t Z \ )♦ 

RZPP112*TA12P*( I PI4*PI3-PII'PII)*TAJ2*I PI>tP||<P|4«P13)*TAJ1 )*S*l 
. RJP1 I 2* TA2 !M* ( I PII-PII*P*4-PI3)*TAI2*(PI**PI7 + PI3-PI2I»TAI 1 ) ♦ ( Pt* 

- P*3 ) • R JP 1 12*TA22M)*RJPPt 1 2* TA2 1 P* ( (P94-P13*P|»-P*»)*TAI2*(P93- 
. PI2*P|l'P47)*TAn)+|PI3-PII)*RJPP112*TA22P + (PII , PI4)*R[PP112* 

. TA1 1 P*2*0X Z NF* R I PP 1 12/OXICI Z ) 

OER * RESP 1 1 2 


ELSE tr l CNO { Z Z , J J . KK , 
PO 1 3P 11 3 • OX Z 1 ( Z ) *S 


I , J, XP 1 i J THEN 


PO 1 4P 1 1 3 » OX Z I { IM1 ) 

P 0 2 * P 1 13 * ( -AJ2IJ)*AJ1 (J) J/2.0 

P 02 • P 1 13 « ( -AJ21 J)tAJ1|J))/2. 0 

P031P1 13 * A2KU1/2.0 

P032P 1 13 * A 2 K ( K ) / 2 . 0 

P043P1 13 * f -A2K(KP1 )*A1X(KP1 ] 1/2.0 

P044P113 • ( - A 2 K t K P t J *A IK | KP 1 ) J/2.0 

P0S8P113 * 0X11 ( I )*A1 1 R ( J , Z )»S+t *AJ2tJ)*AJ1 (J) ) * X Z Y I P ( J , Z } / 2 .0 
P059P113 » ( * A J2 ( J ) *A J 1 (J) ) *XIY1P|J, IM1 )/2 . 0*0X1 I ( ZH1 ) • A 1 1R{J, 1 M 1 ) 


C-7 


original page js 
of POOR QUALITY 


17 11 
17 17 
17 11 
17 11 
1720 
172 1 

1722 

1723 
172* 
172* 
172 1 
1727 . 
172*. 
172*. 

1730. 

1731. 
1 732. 
1 733. 
173*. 
1 73* . 
1731. 
1 737. 
173*. 
173* . 
17*0. 
17*1. 
17*2. 
17*3. 
17**. 
1 7* * 

1 7 * * . 
17*7. 
1 7«« . 
17** . 
17*0 . 
17*1. 
17*2. 
17*3. 
17**. 
17**. 

1 7* S . 
17*7. 

1 7S* . 
17*1. 
17*0. 
17*1. 
17*2. 
17*3. 
17*4. 

1 7CS . 

1 7 SC . 
17*7. 
171* 

1 7 (t . 

1 770, 
1771. 

1 772. 
1773 . 
177*. 
177*. 
177*. 

1 777. 
177*. 
177*. 
17*0. 
17*1. 
17*2. 
17*3. 
17**. 
17*5. 
17**. 
17*7. 
17** . 
17«* . 
17*0. 
17*1. 
17*2. 
17*3. 
171* . 

1 7»* . 

1 7* * . 
17*7. 

1 7* S . 
17**. 

1 AOO . 
not. 

1 *02 
1*03 
1 *04 . 

1 SOS . 
1 *0*. 
1*07, 
1*04. 

I *0* . 
1 *10. 
1 *11. 
1 *12. 
1*13. 
1*14. 
1 *1*. 
1 *1*. 
1*17. 
1 *1*. 
1 *1*. 
1 *20. 
1 *21. 
1 *22. 
1*23. 
1*24. 
1 *2* . 
1 *2*. 
1*27. 
1 *2*. 
1*29. 
1*30. 
1*31. 
1*32. 
1*33. 
1*3* . 
1*3*. 
1*3*. 
1*37 . 
1*3* . 
1*3* . 
1**0 . 
t *4 1 . 
1*42. 
1*43. 
1*44. 
1*4*. 
1*4*. 
1*47. 


*073F113 « OKI I ( I 1 ■ X I V I P ( J, I )*s*| - A J 2 ( J ! t A J 1 ( J 1 )/2 . O 
PD74P113 * OX I I ( IM1 ) • XI T 1 P | J . IM1 ) ♦ | - AJ2 { J ) + AJ 1 ( J ) ) /2 . O 

TO* C2 * 1 

Tl • |C1»(^OI7*>0l2*l*02»P04 7*P03S«»2|*1 )»tTO 

XIPJM 1 3 * $ C { : ,J,K)«(2«CI»C2M032*P032M 13-T1-S+2»G1-G2-PQ31- 
. P G 3 1 P 1 13* f C I » (P01S-P0S1+P0I-PO4C+PO31--2 1 ♦ 1 )-«TO)+2-CI*G2-P032* 

. P 0 3 2 P 1 1 3 ■ T 1 

PlMPI 13>2»Ct*C2*SCI IM1 ,J,K)*P032*P032P1 !3*|Ct*(POT7*POI2>P02*P017+ 
. P 0 3 2 • • 2 | * 1 ) | 62 • 1 ) 

T O * C 2 * 1 

T 1 » ( C 1 « (PO 17-P062+P02»PQ*7+P032-«2)*1 ) « ■ TO 

RJP1 13* [SG[ 1 , J , K ) * ( 2-G1-C2-P032-P032P 1 13-T1-S+2-C1-62-P031- 
P031P1 13" I C 1 * (PO 1 1* P O I 1 + P 0 1 *P0*l»PO3 1**2 ) + t ) * »TP I ♦:* G 1 * C2«S6 I IM 1 , 
J,K)-P032>P032Pit3-Tl+2»G1*C2*PQ32-P032P113*Tl)/4 O 
T O » C 2 * 1 

Tl * 1 C 1 • ( P0 17*PO*2*P02»P017>P032»*2 > ♦ 1 )«*T0 

*»CP 1 13* (SG( I . J . K)*(2-C1*C2-P032-P032P1 13-T1-S+2-G1-C2-P031- 
. PQ31P1 13* (C1*|P01I*PD(1+P01»PO<I*P031»*2)*1 } | *T0)*2*Ct*C2*SC( IM1 
J . K J -PO 32- P032 P 1 1 3 • T 1 *1 » G 1 * C2 * P03 2 • P 0 3 2P 1 1 3 ■ T 1 ) /« 0 

TO * C2 - 1 

Tl«|C1*(P017ipoi2*P02*P047*P032**2]*t)»*TO 

RJPP 1 1 3 * (SC! I ,J. K 1 * (2-G1-C2-P032-P032P1 13-T1-S+2-G1-C2-P031- 

. P031PI 13* IC1*|POll»POII+P01*PO*l+PO31««2]*t ]«»TO)*2*G1»G2»SG( IM1 

. J . K ) »P03 2 • P032P 1 l 3* T 1 + 2 • G 1 » C 2 ■ P 0 3 2 • P Q 3 2 P 1 1 3- T 1 ) / 4 . O 
TO> G 2 • 1 

Tl t (C1» ( P01 7-P042+P02-P047+P032--2 )♦ 1 1 » • TO 
T2«(CH|P02»»P07**P01*«POSI*P04*»*2)^1)»*TO 

T3»P02I*P074P 1 13»PO2»Pt13*P074tP014*PQS|P 1 13*P01*P1 13*P05»*2«P04*« 

. P044P 1 1 3 

*KPP1 t 3 • I SC [ I , J , K P 1 )» [ G 1 -G2-T2-T3-S+G1 • G 2 ■ I G 1 * ( P024-P073+PQ 1 3 • P 0 S 4 
♦P043--2 )♦ 1 I * • TO* I P02I* P073P 1 1 3 ♦ P 0 24P t 13-PO73+P013-POS4P1 13* 

. P013P1 13-P0S4+2-P043-P043P1 13) ) + S G ( 1 , J , K ) ■ | 2 a C1*C2*P032*P032P1 13* 

T1-S+2-C1-G2-F031-P031P1 1 3> I C 1 • ( PO 1 I* POt t «P0 1 *P0 4|4PQ3 l * *2 ) » 1 )•> 
T0)+CT»C2-SG( I M 1 , J.KP 1 J *T2 , T3+G 1 • G 2 • T 2 ■ T 3 ♦ 2 » G 1 ■ G 2 * S C { 1M1 , J , K ) • 

PO 3 2 * P032P 11 3 * T 1 ♦ 2 - C 1 « G2- P032 • P03 2P 1 1 3- T 1 ) / 4 . 0 
PiSPI 13* ( | P*4 *P 13 ) * IKP 1 1 3-TA3 3M+2* X IXXIlJ.I)-02INF-ftKP113/0ZETAC|K 
J ) • V 2 * { I -P44 + P 1 13 ) •RKPP 1 13-TA33P+RKP-TA33P*2-X1XX1 ( J , I ) *0 2 I NF • 

. RKPP 1 13/DZETAC(K} I 4 IMP 1 1 3-TA 1 2M- ( (P*3*FS2-P44-P47)-TAJ2+( 

^*** p *7*P43*P42 } * T 6 J 1 )+lPa*-P47)*ftIMP1 13*TA1 1M+2-QXINF-R1MP1 13/ 

. DX1CU)]**IPP113«TA12PM(P»**P*3-P»»-P»*)>TAJ2MP**+P**-PS4-P«3|> 

. TUI ) tS * ( X JP 1 1 3 * T42 1 M* ( |P4S , PJ4*P|l-P*3)*TAl2*|Pl4*P47+P43-p|2)i 
. T A I 1 1*(P**-P*3)«*JPt 13»TA22M)+-RJPP1 13«TA21P> ( (p 94 -p 934 .p 49 .p 4 s)* 
TAI2*(PI3-P*2*P4*-P47)»TAI 1 ) ♦ ( PI 3 • P*| | *RJPP | 13*TA22P* j Ptl *P»I ) • 

H I PP 1 1 3 * T A t 1 P* 2 » OX I MF • *1 PP 1 t 3/ DX I C ( I ) 

D E ft * ft E 3 P I 13 


P 0 2 • P 1 1 « 
P03 1 P 1 14 
P043P 1 14 
P0S4P I 1 4 
P073P I 1 4 


EISEIF ( CND I £ I , J J , KK , IPt , J. KP 1 ) ] THEN 
PO 1 3P 1 I 4 * OX I I ( I J 

( * A J 2 l J ) ♦ A J 1 ( J I ) /2 . 0 
A 2 K ( K ) / 2 . 0 

( *A2K| KP 1 ) *■ A 1 K { K P 1 ) 1/2.0 

I ■AJ2|J)*AJ1(J))»X]V!P(J, 11/2.0 + 0X11 (I ] • A 1 1ft(j t I ] 

DXI 1 ( 1 )*XIYIP(J, 1 )♦{ - A J 2 ( J ) * A J 1 (J) 1/2 .0 
ftIPPI 14»2*C1*62*S6( I ,J,K)*P03l*P03tPl 1 4> | G 1 • | PO I I* PO* 1 +P0 1 *P04I + 

. P 0 3 1 * - 2 1 ♦ 1 )»• l C2 - 1 ) 

RJP1 I4«G1*G2*SG( ] ,J,K)*P03t*P031PI 14>(C1>(P014>P0t1+P0l>P04*+P031 
■ « 2 I ♦ 1 1 * • ( 62 *11/2-0 

ftftPl t 4 tG t • C2 X SG ( I , J , K I *P03 l»P03 IP I 14- ( G 1 * ( PO 1 l»POI 1 +P0 1 *P04I*P0 3 1 
. * • 2 J ♦ 1 )•• | G 2 ' 11/2.0 

ftJPPI 14«G1-G2-SG( I , J , X }»P03 1*P03 IP 1 t4>{C1*|P01l l PQtt*POMP04l + P031 
*■21 + 1 )•■ ( G 2 - 1 1/2.0 
TO * G2 - 1 

AKPP1 I4i [ C 1 ■ C2-SC { I ,J, KP1 J * (Gl « tP02*-P073*P013»POS4+P043»-2}41)»- 
. TO- I PC24-P073P 1 I 4 + P03IP I 14-P073 + P013-PO**P1 14 + P013P1 14*P0SI«2* 

. P043»P043PI 1 4 | + 2»G I * C2*SC ( J , J , X ) • P03 1 • P03 1 P 1 14>(G1«(P01*»P0I1+P01 

•P04I*P03I**2)+1)«»TO)/4.0 

RE3P1 14i{ [ P |I • P (3 ) • RKP 1 14-TA33M+2-XIXX I (J, 1} »0 2 I HP • RKP 1 1 4 /D 2E T AC ( It 
1 1*V2+I ( - P44 + P! 13 1-ftKPPI 14-TA33P + 2- XIXX1 (J, 1 ) *QIINP* RKPP I 14/ 

. D IE T AC ! K ) I * V 1 + 4 I PP 1 1 4 » TA 1 2P » ( I PI 4 *P n • P 1) - PU ) * TA J2* { P< I *P«I • Pt4 • 
P43 1 * T A J 1 | 4 $ * ( 4 JP 1 I 4 » T A2 1 M* ( ( PI1-P*I + P|4>PI3)»TAI2+ [P44*P47 + P«3* 
P42 1-TAI 1 I ♦ I Pit - P*3 ) *4 JP I 1 4 • T A2 2M ) +4 JFP 1 1 4 « T A2 1 P« { (P*4-P*3 + P*»- 

. P**)-TAI2+{P*3-P*2*P**-P«7).TAl!l4(P*3-P**l«ftJPP11*-TA22P+(Pi»- 

P4* 1 ■ ft 1 PP 1 1 4 • T A 1 lP+2-OXlNP-ftrPP I 1 4/OX I C ( 1 ) 

OEM ■ RES P 1 1 4 


EISEIF ( CNO | 1 1 , J J , KK , I M2 , JP t , KP 1 1 ) THEN 
P030P 1 1 * • A J2 [ J } / 2 . O 

P042P1 1 * • A 2 K | K 1 /2 . O 

P 0 * O P 1 1* > AJ2 ( J 1 -X I Y I P l J , IM2 1 /2 . O 

P 0 7 # P 1 1 I * A J 2 ( J 1 /2 . O 

TOi (G1» ( P027»P072*POI2»POI7+P042«»2l*1 )»•( G2* 1 > 

ftJPPI II* [2-C1-G2-SC1 1 Ml , JP I , K) -P042>PO*2P 1 1I-TO-S + 2- G1-C2-P042* 
P042P I 1I-T0J/4.0 

TO t ( C 1 ■ ( P030-P075 + PQ 1 S*P0IO*P04S>>2 ) 4 1 ) ■■ (G2- 1 ) 

T 1 «P030*P07IP I 1 * + P03OP1 14-P075+P01S-P040P1 IS 
ftKPPI 14* (C1«C2*SC( [Ml , J, KP1 ) « TO» T 1 *S« 5 1 «G2‘ TO* T 1 1/4.0 
RESP1 1 * * ( ( ‘ P » * ♦ P 1 1 3 1 * ftKPPI 1S-TA33P + 2- X [XX I ( J , 1 l-OIINF-RKPPI 1*/ 
OZETAClKj J • V 1 PftJPPI 1 I* TA2 IP* ( (P44-P*3 + P4**P*4}-TA[2+|P*3-P*2+P4*- 
. P 8 7 J • T A 1 I )*(PI3*Plt)* 4 JP P I 14-TA22P 
0 E ft * RES P 1 1 * 


eiSElF ( CND { I I , JJ . KK . I Ml , JP 1 . KP 1 | | THEN 
P02JP1 17 * A J ? ( J ) / 2 . O 

AJ2! J)/2.0 
A 2 K ( K ) / 2 . O 
A2K ( K ) / 2 . O 

A J2 ( J ) *XI V I P( J , [Ml J/2.0 
A J 2 ( J ) • X I Y I P ( J , 1 M2 1/2.0 
A J 2 ( J J /2 . 0 
A J 2 ( J ) / 2 . 0 


P 0 3 OP 1 1 7 
P041PI 17 
P04 2 P 1 17 
P0SIP1 17 
P OIOP 1 1 7 
P074P 1 17 
P075P 1 1 7 
TO *G2 * I 

Tl * (Cl* I P024-P07 1 ♦ P Q 1 1»POI**P041»»2)*1 1--T0 
T2*2*G1*G2*P04 1 -P041P I I7*T1 

T 3 * ( G 1 ■ IPO27-P072 + P0 1 2>P0S7 + P0*2»»2) + 1 1**T0 

ftJPPI 1 7 * ( S G 1 1M1 , JPI ,K)*(2*C1»C2*P042«P042P1 17-T3*S + T21 + 2-Gl-C2-SC( 
I , JP 1 . K ) * P 0 4 1 • P 0 4 I P 1 1 7 • T 1 >S + 2- G 1 • G2 • P 0 4 2 • P 04 2 P 1 1 7 • T3 ♦ T2 J / 4 O 
T0» C2 - 1 

Tl* |C1»(P02*»P074*P014«P05»+P044»«2|*t J**TO 
T2*P02»«P074P1 17+PO2*PI17»P074+P014*P0S9P1 17 
T3 • G 1 ■ 62* T 1 - T 2 

T 4 * ( C 1 * ( PO3O-P07S + P0 1S*P0IOtP04|**2 )♦! }»»T0 
T*»P030-P07*P1 17+P030P1 17-P075+P0 1t*P0IOP 1 17 

ftKPPI I 7 » ( SG [ INI , J # K P 1 >-(Gl-G2-T4«TS-S+T3)+G!-C2-3Gt I J KP1 1-T1-T2- 
. S+CI-G2-T4-T**T3)/4.0 

ftESPt I 7 » { ( -PII + P1 13 ) -ftKPP 1 17-TA33P + 2- XIXX1 (J, I )-0ZINF*RKPP1 17/ 

. OZETAC(K) ) * V 1 +4 JPP1 17-TA21P* t ( P« 4 - PS3+P4 t • PU ) t TA I 2+ | PS 3-PS 2 + PII • 
. P*7 )*TAI 1 ) + ( P*3*P*A) - ftJPPI 17-TA22P 

DEft * RESP 1 1 7 


ELSEIP ( C H 0 ( II , JJ.KK, 1 , JP 1 f KP 1 ) ) THEN 
P024P 1 I S * A J 2 ( J J/2 . O 
A J 2 ( J 1/2.0 
A2K ( K ) / 2 . O 
A 2 K ( K ) / 2 . O 

A J 2 ( J ) *XIYIP(J. 11/2.0 
A J 2 (J)-XIVIP(J, IM1 1/2.0 
A J 2 | J }/2 . O 
A J 2 ( J 1 /2 . O 


P02IP 1 I * 

P04OP 1 I 4 
P 0 4 1 P 1 1 4 
P0S4P 1 1 4 
P 0 * » P 1 1 4 
P073P 1 1 4 
P074PI 14 
TO *C2 - 1 

Tl* I Cl ■ |P02I»P0 71+P01I*P05S*P04I»«2 1*1 l**TO 

ftJPPI 1*»(SG{ I , JPI , K)- ( 2-C1-G2-P0* 1-P04 1P1 14-T1-S + 2-C1-G2-P04O- 
P04OP1 14- |G1*(P02S-PQ70*PQ10«P055 + P040-*2J*1 ) * * TO ) +2*G 1 ■ C2*SC ( 1M1 


18*4. 
1 849. 
1850 . 

last. 
1 852. 
1853 . 
1 454. 
1 4 5 5. 
1 45 8. 
14 5 7. 
1 854. 
1159. 
18 10. 
18 8 1. 
1 462. 
1 463. 
1 664. 
1 8 65. 
1466. 
1 4 67. 
1 466. 
I 486. 
1 4 70. 
1471. 
1 472. 
1 473. 
1 874. 
1 675. 
1 676. 
1 877. 
1 874. 
1679. 
1 640. 
1661. 
1 662. 
1 443 . 
1 644. 
1 485. 
1 686. 
1 687. 
1486. 
1 669. 
1 460. 
1491. 
1 692. 
1 493. 
1 494. 
1 69 5. 
1 89 6. 
1 8 97. 
1 698. 
189$. 

1900. 

1901. 
1 902. 
1 903. 
190*. 
1 905 . 

1 906. 

1 907. 

1 906. 

1 909. 
19 10. 
19 11. 
19 12. 
19 13. 


. . JP 1 1 K)aP0*laPQ*1P11»aT1+2aClaC2*P041»PO*1P1 14«T1 1/4.0 

TO * G2 - 1 

T1«(CI* |P02J»P074 + P014»POSI+>04*««!1*1 )«*T0 
T7«P02MP0 7 4PM|*P02IP1 1*»P074»P0 14*P0S9P11I 

8KPP1I»« (SCI I , J.KP1 |»l61»C2*TiaT2«S»CI«C2*[C1»(P02**P0734P013*POI* 
. ♦P043 > a2 ) ♦ 1 1--TO-1P024-P073P1 1 6-P0 2 4P 1 1 l»P073*P0 1 3* P054P 1 1*1 ) - G 1 » 

. C 2 * S G ( tHI .J.KP1 )*T1»T2*6l*G2»T1»T2|/4.0 
R E5 P 1 1 4 » { ( • P8 • + P 1 1 3 ) ■ 6KP P t 1»*TA33P*2*XIX11 IJ» I ) • 02 J MP »8KPP 1 16/ 

. D 2 E T AC ( K ) )*VMRJPP11I«TA21P*| [P*4'PJ3 + Pn-P»*l*TAl2*(PI3*Pi2*P»»- 
. P 4 7 } * T A I 1 ) + { P 9 3 - P 4 4 | JPP 1 UMA22P 
DBA t PESP 1 18 
9 

ELSE IF ( CNO | I I , JJ,XK, 1 P 1 , JP 1 , KP1 ) 1 THEN 

P02IP 11 9 ■ A J 2 1 J ) /2 . 0 

P04OP 119 » A2K(K|/2.0 

P0S4P1 II i AJ2(J)-XIYIP{J, 11/2.0 

P 0 7 3 P 119 « A J 2 ( J ) / 2 . 0 

R J P P 1 ISiG1aC2*SG(I,JP1,K) t P040aP040P11|i(C1*(P02SaP0704P010*POSS 4 
. P040**2 ) ♦ 1 } •» t C2 ■ 1 ) /2 . O 

PKPP1 19»G1«C2«SG( I , J.KP1 1* |G1»(P024«P073*P0 13«P054 + P043»*2h1|»» I 
C 2 - 1 )*|P02I*P073P1 1I«’P024P1 1 1 »P073*P0 1 3 »P 0S4P 1 19 )/* .0 
6ESP1 Hi ( l •P44*PM3|«AKPP11I«TA33P*2»)(IXKN J. I 1 »C 2 I NP« IKPP 11 I / 

. 0 2 E T A C ( K ) 1 • V 1 ♦! JPP 1 1 f * T A2 1 P* [ (P»4-P»3*PA9-PA8l«TAI2«MP83-P*2 + P4A- 

. P47 1 * T A I 1 )♦ ( P93-P68 ) « AJPP 1 1 9 • TA22P 
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DANPA B *S* | 0 0 PO* X I KP«I»TA33M*2*X!XX l ( J , I) ■ Q Z I NF a PI KP • ■ / D IE T AC I K ) ) 
DAN * DANPAS 
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CLSE1F ( CNO{ I 1 , JJ . KK , IM1 , J . K ) | THEN 

P A 2 P 6 7 * DX I I ( IM1 ) *S 

P A 3 P *7 « OX I I t IM2 ) 

PA17PB7 i t - AJ2 [ J ) *AJ 1 ( J ] ) /2 . 0 
l - A J 2 I J ) + AJ 1 I J) )/2.0 
DC 1 /2 . O 
DC t /2 . O 

D X I I ( rMI ) • A 1 1 A ( J , 1 M 1 )■*♦( - AJ2 I JJ+AJ1 (J) ) ■ X I Y I P ( J , IHt | / 


I • A J2 l J ) *AJ 1 | J )) Y 1 P t J . IH2 ) /2 . 0 + 0 X I I | I M2 ) * A1 1 R ( J , I M2 ) 
D X 1 1 I I M 1 ) » X I V J P ( J , I M 1 )*SM - A J 2 ( J ) + A J 1 1 J ) 1/2.0 
0X1 I l I M2 ) • X 1 Y I P ( J , t M2 ) 4 | * AJ2 ( J ) ♦ AJ I [J] ) / 2 . 0 


P A 1 S P • 7 
P A 3 2 P * 7 
P A 3 3 P * 7 
P A 4 7 P • 7 
. 2.0 
PA48P47 
PAB2PI7 
PAB3PB7 
TO * G 2 • 1 

T 1 i ( C 1 » ( PA 1 7*PA62 , *’PA2*PA47 + PA32**2 1 ♦ 1 )**T0 

T2*PA17«PAB2PB7*PA17P*7*PA62+PA2«PA47P*74.pA2PB7*PA47*2*PA32» 

. PA32PB7 

T 3 * C 1 * C 2 « T 1 » T 2 

T4* {G1*(PA1B*PA«3+PA3*PA4*+PA33»*2)*1 ) ■ * TO 

T5*PA1*»PAS3PB7*PA1BPa7»PAB3*PA3»PA4BPB7*PA3PB7*PA4B^2-PA33» 

. PA33PB7 

R1KPB7* (3* (SC( I M 1 , J,K)> (G1*C2*T4«TS»S*T3 )+G1*C2*T4*T5)+3*(G1 fl C2 a SC 
( I . J. R )*T1*T2*S*T3l )/* .0 
TO * X 1 YX { J . I I 

DDPUPB7 * D 2 E T A ( K L OW }*(CC1*O0ZXU*|TO**2*X]X)(|J, I)**2)*S»TAI 1*CC1» 

. DO ZYU* T 0 * S * TA l 1 ) 

DAHPB7 *S» (00PU«A1KPB7«TA33M*00PUPB7-A1K»TA33M*2»X I XX I (J. I ) *0Z I NF» 

. R1KPB7/D2ETACI K ) ) 


DAN 


0ANPB7 


ELSEIF ( CND ( 1 I , JJ , KK , I . J . K 1 ) THEN 
PA1 PBB ■ D X 1 I I I ) * S 
P A 2 P B a ■ DX I I [ IM1 ) 

PAiBPaa * | *6J2 ( j)+aji ( J) )/ 2.o 

( ■ A J2 ( J I ♦ A J 1 ( J ) 1/2 .0 
DC 1 / 2 . O 
OC 1 / 2 . O 

OX] I | ] ) * A 1 I R | J , I ) *S ♦ I • AJ2 1 J I ^ A J 1 (J) )“XIYIP(J, I J/2.0 
(-AJ2(J)+AJI(J||*X1YIP(J, I M 1 )/2.0+DXIl( 1M1 ) * A 1 1 X | J , IM1 ) 
0 X I I [ ] ) ■ X I Y 1 P l J . I J * S * { • AJ2 ( J ) *A J 1 (J) 1/2.0 
DXl I ( I M 1 ) *X I Y I P ( J , 1 M 1 hl*AJ2( JJtAJI |J) J/2.0 


PA 1 7P8 a 
PA3 1 P8 a 
p a 3 2 p a a 

PA48PI8 
P A 4 7 P § 4 
PA* 1 PBI 
PAB2P *8 

TO * C 2 * 1 

Tt * l C 1 « ( PA 1 7 » PAB2 + PA2*PA47^PA32**2 ) * t ) * » TO 

T2*PAt7»PAS2FBB*PA17F8*-FA82*PA2»PA47P**-*-PA2P**«PA47<*2*PA3 2« 

. P A 3 2 P 8 8 

R1KP8B* ( 3 * ( 5 C ( I ,J 1 K)*(C1*C2*T1*T2«S + C1*C2*(C1«(PA1B»PAI1*PA1tPA4** 
. PA3i»*2l*i)»«To«(PAii»PABiPaa+PAiiPBa*PAai*PAi»PA46Paa*PAipaa* 

. PA4**2«PA31*PA31P84) )^C1*C2*T1«T2J*3*C1»C2*5C{ 1H1 ,J,K)»T1«T2)/4.0 

TO • X I Y X J J , I ) 

Tt ■ CC 1 *S« TA I 2*CC1*TAJ 1 
T2 • CC 1 * T A J 1 
T3*CC1*S*TAJ2 

OOPUPB8*OZETAt XL DW )» | 0 D 2 X U » ( TO« ( T 3 •* T 2 l* ( T0* B 2 + XIXX(J, I ) ■ » 2 ) » T 1 1 ♦ 

DO 2YU* ( T3+ T2 *TO*T 1 } J 

DAMPBI*S»(DDPU*R1KPea«TA33MfDDPUPaB*R1K*TA33M*2»XlXXI (J, ] ) *0 21 NP* 

. RtKP88/DZETAC( K ) ) 

DAN • DANP88 


ELSEIF I CND ( I I , J J . KK , I P 1 . J , K ) } THEN 
PA i Pa* * OX I II I ) 

PAIBPII t [ - A J2 I J ) ♦ A J 1 I J )) /2 . O 
P A 3 1 P 8 9 ■ 0C1/2.O 

PA4BP8I « ( - A J2 I J ) ♦ AJ 1 ( J ) ) • X l Y ] P ( J , 1) / 2 . 0*0 X J| ( I > • A 1 1 R | J . I ) 

P A B 1 P 8 I » DX] I I I )»X1YIP(J, I )♦[ -AJ2(J)*AJ1{J| 1/2,0 

R 1 KP 8 9 » 3 .0/4 .0*G1*G2*SG( I . J . K ) • ( G 1 * ( PA 1 I *P Al 1 +PA 1 • P A4 l + P A3 I * « 2 ) ♦ 1 ) 
* * ( G2 - 1 } » |PA1**PASIPII*PA1IPI««PAIUPA1<PA4aPBMPA1PBI>PA4l*2* 

. PA3 1*PA31PI1 1 

TO* X ! YX ] J . I ] 

DDPUP89 > DIET A ( KL0W)*(CC1«00ZXU» ( TO « * 2 * X I XX( J. I )*«2)*TAJ2*CC1»00ZYU 
■ TO « T A I 2 ) 

DANPlItS* ( DOPU*R1KPBS*TA33M*OOPUPII>R1K«TA33M-»’2*X1XXI ( J , I 1 * 02 I NF • 

. A 1 KPBB / 02ET AC l K )) 

DAN * DANFB9 

ELSEIF { CND ( ! I , J J , KK , I M2 , JP 1 , R ) > THEN 
P A 1 8 P 9 1 1 A J 2 ( J } / 2 . 0 

P A 4 8 P 9 1 > AJ2(J)*XIYIP(J, IM21/2.0 

PAB3P91 * A J 2 I J ) / 2 . 0 

TO* ( G 1 * ( PA1 8bPAB3 + PA3*PA4I + PA33*"2) + 1 ]•• ( C 2 • 1 ) 

T 1 *PA1I*PAI3PI MPA t 8P9 1 *PAS3+PA3*PA46P5 1 

R 1 K P 9 1 *3.0/4 . O • ( C I *G2*SC [ I M t , J , R ) * TO* T 1 « S 1 * G 2* TO* T 1 ] 

0ANP91 >S* ( D D P U * R 1 KP * 1 *TA33M*2* X IXX I ( J , I J«0ZINF*R1KP9 t/D2ETAC(R] ] 
DAN * DANP91 


ELSEIF ( CNO I I I , JJ , KK , INI , JP1 , R ) ) THEN 
PA17P92 * A J 2 I J ) / 2 . O 


A J 2 1 J ) / 2 . 

AJ2 ( J ) * X I Y I P ( J , 1H1 J/2.0 
A J2 I J ) » X I Y I P ( J , I M2 1/2.0 
AJ2 I J 1 /2 . O 
A J 2 ( J ) /2 . 0 


PA 1 4P92 
PA47P9 2 
PA44PB2 
PAB2P9 2 
PA63P 92 
T0*C2- 1 

Tl * (G1* (PA17*PAI2 + PA2*PA41*RA32*«2)*t )»*T0 
T2*PAI7*PAI2PI2^PA 1 7P92*PA*2^PA2*PA47P92 
T3»C1*C2*T1*T2 

T 4 * ( Cl ■ ( PA1B«PA83«-PA3*PA4S*PA33»»2 ) ♦ 1 )*« TO 
T$iPA1S*PAB3PI2«Pai«P)2*PA63^PA3*PAA|PS2 

R1KPI2* 1 3 • ( S C { 1 M 1 ,J, K )* { C1*C2*T«»TS*S'*T3 1 + G 1 * G2* T 4*TS)+3* ( C l*G2*SG 
I I ,J,K)*T1»T2*S+T31 1/4 .0 

DANP92 * S • ( 0 D P U * R I KP9 2 * T A3 3M* 2 * X I XX I ( J . I }*OZ(NF*R1KP|2/D2ETAC(K) ) 
DAN * 0ANP92 


ELSEIF | CNO ( II , JJ , KK , I , JP 1 , K) ) THEN 

PA1BP93 * A J 2 t J ) / 2 . 0 

PA 1 7P93 * A J 2 { J 1 / 2 . 0 

PA4BP93 * AJ2 ( J) *XI YIP] J, I 1/2 .0 

PA47P93 * AJ2(J)“KIYIP]J, IMl J/2.0 

PAB 1 PBS * A J 2 ( J ) / 2 . 0 

PAB2P93 * A J 2 ( J ) / 2 . O 

TO * C2 - 1 

T 1 * | Cl* ( PA 1 7*PA82»PA2* PA47*PA32*»2 )♦ 1 }»*TO 
T2»PA17*PAI2P93*PA17P13*PA«2*PA2*PA47PI3 

R1RP93* { 3 » (SC( I > J < K)*(G1*G2*T1*T2«S*G1*G2* (G1«(PA1 B«PABMPA1>PA4B« 
. PA3 1 * • 2 1 ♦ 1 ) * * TO* ( P A 1 S • P A 8 1 P J 3 *P A 1 IP) 3 * PA I 1 + P A 1 •PA4BP93 1 J + C 1 *C2* T 1 
. •T210*C1*G2*SG! IHt , J,K)«71»T2)/4 .O 

D0PUP93*0ZETA( KL OW ) • ( CC 1 *OOIXU* X I YX ( J , 1 )»TAJ2*CC1*0DZYU*TAJ2) 
DANP93*J*(D0PU*A1 R P 9 3 * T A3 3M* D 0 P U P 9 3 * R IK»TA33M-*-2«XIXXl ( J , 1 )*021NP» 

. R 1 KPI 3/OZETAC 1 K ) J 
DAN * 0ANP93 

ELSEIF I CNO ( I I . JJ , KK , I P 1 . JP 1 . K )) THEN 
PAISP94 * A J 2 ( J 1 /2 . O 
PA4SP94 * AJ2(J)*XIY1P(J, 11/2.0 
PAI1PI4 • A J 2 ( J 1 / 2 . 0 

A 1 KPS4 * 3 . 0/4 . 0»C 1 • C2*SC ( I . J . K ) ■ ( C I • | PA 1 *• PAB 1 +PA 1 «PA4 B«-PA3 1 • »2 ) ♦ 1 ) 
* » ( G 2 * 1 }* (PAI »»PAB1Pi4*PA1IP|4*PAI1*PA1*PA4IP|4 1 
DANP94*S» ]0DPU*R1KPB4*TA33M+2»XIXXI (J, I )*O21NP*R1KPB4/02ETAC(K) J 
DAN ■ 0ANPI4 


ELSEIF ( CNO ( I I , J J . KK . IM2 , JM1 . RP 1 ) ) THEN 
PA30P10* • - | 1 ■ 0/2, O- A J 1] J ) ) 

PABOPIO* * - I 1 . 0/ 2 . 0* A J 1 |J)»XIY1P{J, I M2 J } 
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PA75P10S * * ( 1 . 0/2 . 0» A J 1 ( J | ) 

TO* | Ct* (PA30*PA75+PA1 5*PA404PA4S**2 ) * 1 ) * * I G 2 * J ) 

T1*PA30*PA7SP1OS+PA3OP1O§*PA7S*PA1S*PAS0P1OS 

RIKPIOS'S* (G1*G?*SG( I Ml , J,KM )«T0*T1»SfG1»G2*T0*T1 J/4 .0 

DAMP 105 **■ l OOPU*R I KP 10«» TA3 3M42.XIXX I( J , M *021 NF* R I KP lOE/DZETAC I K ) 

OAM • DAMP 1 OS 


ELSEIF t CND ( I I , JJ , KK, IMt.JMI.KPI)) THEN 


( 1 . 0/2 . O* AJ || J ) ] 

• ( 1 . 0/2 . O • A J 1 ( Jjj 
-( 1 . 0 / 2 . 0 «AJl(j]*XIVIP|J,jMl}} 
*( 1 . 0 / 2 . 0 »AJ 1 (J)*XlVlP|J, 1 M 2 ] ) 
-( 1 . 0/2 . 0 * 4 J 1 t J ) ) 

•( 1 . 0/2 . ©» AJ 1 ( J J ) 


P A 2 9 P 1 07 
PA30P 1 07 
PAS IP 107 
PA«OP 107 
PA74P 107 
PA75P 1 07 
TO* G2 - 1 

T 1 * ( G1« (PA29 a PA74 + PA14«PA59 + PA44a*2) + t )>*T0 
T2*PA25“PA74P 1 074PA29P 107»PA74 + PA1 4 • P A S 5 P 1 07 
T3<CI<C2<T 1 ■ T 2 

T * * I G1*(PA3O«PA75*PA15*PA50*PA45*»2)*t )>*T0 
T5 * PA30»PA75P 107+PA30P 1 07*PA75*PA 1 5 * F A 5 OP 1 07 

R1KP10T*(S*(SG| I M l , J.KP1 )»(C1aG2*T4*T5*S*T3}^Gl»G2«T4«TS)+S*|Gl»C2 
. *5 G ( I , J , KP I ) * T 1 » T 2 *S + T3 J ) /4 . 0 

0AMP107*S-| DDPU* R1 KP 107* TA33M+2*X I XX 1 t J , I ) * O 2 I N F • R1 K P 1 0 7 / 0 2E T AC ( K j 
DAM * 0ANP1O7 


ELSEIF ( CNO ( I I , JJ , KK . I , JM1 . KP 1 ) ) THEN 
PA25P105 * * ( 1 . 0/2 . 0« A J 1 | J J ) 

PA29P104 « * ( 1 . 0/2 . 0*AJ 1( J ) J 

PA59P104 « •( 1 .0/2.0.AJ1 (j|.XtrlP( J, t | ) 

PA59P10I * • ( 1 . 0/2 . O* AJ 1 ( J ) * X I Y I P ( J , IM1 ) ) 

PA73P 1 Ol » - { 1 . 0/2 . O* A J 1( J ) ) 

PA74P 10 4 » - ( 1 . 0/2 . O* AJ 1 ( J } ) 

TOiCI - 1 

T 1 * ( Cl * I PA2l*PA7t*PAt4*PAS|.PA44< *2)+1 }»*T0 
T2«PA2»»PA7»PIO*»PA2»P1O»»PA7«*PAlA.PAI4P104 

R t KP 105* (S* { SG ( I . J . KP 1 J • 1 G 1 »G2»T I *T2*S+C 1 ■C2« ( C I* ( P A 2 5 « P A 7 3 ♦ P A 1 3» 

. PASI«PA43>>2 ) * 1 ) * • T O * ( P A2A * P A73 P 1 OI«P A2IP 1 01 * P AT 3 * P A 1 3 * P AIIP 101 ) J 
+ C I • G2 • T I » T2 ) *C 1 * G2 » 5 C ( I M 1 , J . KP 1 ) * T 1 ■ T2 «S ) /4 . O 
TO 2 

DDPUP1O4*QZETA{Kt0W)*|CC2-002XU»KIYKlJ,I]»TO*TAJ1*CC2»0DZYU*T©« 

. T AJ 1 J 

OANP104U* IDOPUMIXP 104* TA33M+00PUP 1 O A * R 1 K*TA33M*2* X I XX I ( J I )» 

. ©Z1NF*R1 KP 1 OS/DZETAC (K) ) 

OAM . DAMP 104 

9 

ELSEIF ( CNO ( I 1 , J J , KK . 1 P 1 , JM1 , KP 1 J ] THEN 

PA2*P 1 Of « - ( 1 .0/2 . 0*AJ t( J ) J 

PA54P109 * - { 1 . 0/ 2 . O* A J 1 { J j • X l Y I P ( J . I )) 

PA73P105 * - ( 1 . 0/ 2 . O* A J I ( J ) J 

A 1 KP 1 Of ■ C t*G2*SG( I ,J, KP! j • |C1«|PA2I>PA73PPAI3»PAI4*PA43»»2)*1 )**( 
C2 - 1 ) • I P A2 » * P AT 3P 1 09 ♦ P A 2 4 P 1 09 « P A7 3 ♦PA 1 3 • PA S » P 1 0 I ) « J / 4 . 0 

0ANP1O9.S* ( 0 O P U * R 1 KP 10t*TA33M*2*X I XX I (J, I ) ■ 01 t NP ■ R 1 KP 1 03 /D ZET AC ( K ) 
DAN > 0 AN P 10 9 


ELSEIF ( CNO ( I I , JJ , KK . I M2 , J , KP 1 ) ) THEM 


OX I I { I M2 } « S 
( - A J2 ( J ) +A J 1 ( J ) ) /2 , O 
DC2/2 O 
DC 1 / 2 . O 

OKI I ( 1M2 ) -A 1 1* [ J. IM2 ) *!♦{ -AJ2( J ) <*AJ I ( J ] ] • X I Y I P | J . IM2 ) / 
DXU(IM2)»X!Y!P(J, IM2 ) •$♦ ( -AJ2(JJ^AJ1[J) 1/2.0 


PA1SP1 1 1 
P A30P 1 1 1 
P A 3 3 P 1 1 1 
P A4 5 P 1 1 1 
PA SOP 1 1 1 
2.0 

PA7SP 1 1 1 
TO * G2 • 1 

T 1 » (Cl* [ PA 1 |.PAI3-»P43»Fft44*PA33»» 2 ) ♦ 1 ) • • T O 
T 2 * (Ct* ( PA30.PA73-.PA 1 5*PAI0*PA45**2 ) ♦ 1 ) * • TO 

T3.PA30.PA7SP1 1 14PA30P 1 1 1«PA7S + PAI*.PA|0P 1 1 1*PA15P1 1 1»PABO*2*PA45« 
PA4IP1 1 1 

R1KPI11. IS* ( Cl *C2*SC ( (Ml , J, KP1 |*T2*T3*S^C1*G2*T2*T3 ) ♦ 3 » ( 2>G 1 >G2*SC 
( I M 1 , J , K I *PA33*PA33P 1 U*T1.$*2*C1*C2«PA3 3*PA3 3P1 1 1 • T 1 ) ] / 4 .0 
DANP1 1 1<S«(D0PUM1KPn 1.TA33M.2.XIXX((J, 1 J.0ZINF.R1KPI 


) 

OAN 


I 1 /OZETAC ( K ) 


0 ANP 1 1 1 


ELSEIF 1 CND ( I I , J J , KK , I M 1 , J , KP 1 )J THEN 
PA14PM2 « DXI I ( 1M1 ) * 5 
OX I I [ I M2 ) 

( - A J2 ( J ) ♦A J IIJII/J.O 
( * A J 2 ( J ) * A J IUI1/2.0 
0C2/2 . O 
0 C 2 / 2 . 0 
DC 1 /2 O 
0C1/2.O 

0X1 t ( IM1 ) * A 1 1 R ( J , (Ml I * S ♦ ( • A JI ( J | ♦ AJ 1 (J) )*XIY(P{ J, IM1)/ 


f **J2(J)»AJ1 ( J I | * X I Y I P ( J . 1 M2 ) / 2 . O ♦ D X I I ( (M2 ) *A t 1 R ( J , IM2] 
0X11 | IMt J.XIYIPI J. IM1 ).St(-AJ2U)*AJI (JJ 1/2.0 
OXI I ( ] M2 I . X I Y I P | J, I M2 ) * I *AJ2iJ]+AJ1 (J) )/2 .O 

• 2 )♦ 1 | ** TO 


PA tSP 1 12 
P A 2 9 P 1 1 2 
PA30P1 12 
P A32P 1 12 
PA33P112 
P A 4 4 P 1 1 2 
PA4SP1 12 
PAS 9P 1 1 2 
. 2.0 
PAIOP 1 1 2 
PA74P 1 t 2 
PA75P 1 12 
TO* C2 * 1 

Tt » |C1« tPA17»PA»2*PA2«PA47»PA32. 

T2 « 2»C 1 *G2*PA32*PA32P 1 12*TI 
T 3 * |C!»(PA2I.PA74*PA14.PA5 3*PA44».2)*I ) • ■ TO 

T4 . PA2I* PA74P 1 !2*PA29P I I 2« P A7 A4P A 1 4 « P AS I P 4 12+PA14P 1 7 2 ■ P A 5 9 ♦ 2 • P A4 4 * 
. PA44P 1 1 2 
T» « C 1 • G2*T3* T4 

T 5 * ( Gt* [ PAH.PA53 + PA3.PA4I*PA33.»2J*] )**TO 
T 7 . [Cl * |PA30*PATStPAIS.PA50*PA4l*.JJ*! }**T0 

THPA30.PA7JP1 1 2 + P A30P 1 1 2 »P A7S + PA 1 I* PAIOP 1 12 + PA15P! 1 2* P A IO* 2 ■ PAIS . 
. PA45P1 12 

R1KP1 12* (S*(SG( INI , J, KP1 J* ( C1*C2*T7*TS*S*T5 (♦C1*G2*T7*T5 ) 4 3 * (SGI 
I Ml , J . K ) ■ ( 2»G 1 *C2*PA3 3*PA33P 3 I2*T|*S + T2 } 42 «C 1 • G 2 • P A 3 3 * P A33 P 1 1 2»T I 
. J *S • ( G 1 * G2-SC ( I , J . KP 1 ) • T3- T4*S4T5 ) 43* ( 2*C 1 *C2*SC { 1 , J K)»PA32* 

. PA32P 1 1 2* T 1 »S4T2 I J /4 . O 
TO • X 1 YX ( J . I J 
T 1 « S*» 2 


I )**2 I *T1 *TAt 1 4 CC 2 * 


00PUP112*0ZITA(KL0W)»(CC2«00ZXU»(TO*«24XIXXCJ 
DDZYU*T0*T 1 * T A I I ) 

DAMP 1 I2*S* | OOPU*R 1KP I 1 3«TA33M4 00PUPt 1 2 « R 1 K * T A 3 3M* 2 ■ X I XX I( J I 1 « 

. OZ I NF ■ R 1 KP 1 1 2 /O ZET AC ( K ) ) 

DAN * OANP 1 1 2 


ELSEIF [ CND( I I , JJ . KK, I , J , KP 1 ) ) THEN 
PA 1 3P1 1 2 • OX I I ( I)*S 
OX I I ( IM1 ] 

I *AJ2(Jl+AJl (J) J / 2 . 0 
I ■ AJ2 | J ] ♦ A J 1 ( J ) ]/2.0 
0C2/2 . O 
DC2/2 . O 
DC 1 /2 . O 
0C1/2 .O 

OX I I l I ) * A I 1 R ( J . I ) *|4| - AJ2 ( J ) 4 A J 1(J))«XIY1P(J. 11/2.0 
( * AJ2( J ) 4AJ 1( J ) ) -X I YIP ( J . IM1 ) /2 . 04QXI I | IM1 ) *A1 1R( J . IM1 ) 
OXI I ( n •*! YIP[ J. I J*S4| -AJ2t J ) 4AJ1 ( Jll/2.0 
0XIIIIM1 | * X I Y I P | J , IM1 )♦( • A J2 I J ) 4 A J 1 (J) 1/2.0 


PA 1 *P 1 l 3 
PA2IP 1 13 
PA29P 1 t 3 
P A3 1 P 1 1 3 
PA32P 1 1 3 
PA43P 1 1 3 
PA44P I 1 3 
PA54P 1 1 3 
PA59P1 ! 3 
PA73P 1 13 
PA74P 1 13 
TO * G2 - I 

T 1 < |C1*(PA17«PAI2*PA2»PA47*PA32**2|»I ) * • TO 
T2« |C1.|PA2|.PA74*PA14*PASI+PA44**2)*1 )**T0 

T3 ' PA29*P A74P 1 1 3 + PAJIP ! I3*PA74*PAt4*PASIP1 t3*PA14P1 13*PAS942 | PA44* 
. PA44P 1 1 3 

R1KP113*(S*(SG(I > J,KP11«(CI«G2*T2*T3*S4G1*C3-(G1»(PA244PA734PA13» 


ORIGINAL PAGE (5 

OF POOR QUALITY 



2 3 7 S . 
2377 . 
237* . 
2371 . 
23*0 . 

238 1. 
23*2 . 
23*3 . 
23*4 . 
238$ . 
2 3 8$ . 

2387 . 
238* 

2388 . 
2390 . 

239 1 . 
2392 . 
239 3 
2394 . 
239 5 . 

23 9 6. 

239 7. 
239* . 
2399 . 
2 400. 

240 1. 
2402 . 
2*03 . 

2404 . 

2405 . 
2*0* . 
2*07 . 
2*0*. 
2409 . 
2*10. 

2411. 

2412. 

2413. 
2*14. 
2*15 
2*1*. 
2*17. 
2*1*. 
2*19. 
2420 . 
242 1. 
2*22 . 
2423 . 
2*2* . 
2*25 . 
2*2* . 
2*27 . 
2*28 . 

2429 . 

2430 . 
2*3 1. 

2432 . 

2433 . 
2*3* . 
2*35 . 
243* . 
2*37 . 
243* . 

2439 . 

2440 . 
244 1. 
2*42. 
2**3. 
2*44 . 
2*45 . 
2*4 * . 
2**7 . 
2*4* . 
2*49 . 
2*50 . 
2*5 1. 
2*52 . 
2*53 . 
2*54 . 
2*55 . 
2*5* . 

24 57. 
245* . 
2459 . 
2*80. 

248 1. 
24*2 . 
24*3. 
24*4 . 
24*5 . 
24 S B . 
24*7 . 
24 S* . 
2**9 . 
24 70. 
247 1. 
24 72 . 
2473 . 
247* . 
2475 . 
247*. 
2477 . 
247* . 
2479 . 
2*80 . 
24*1. 

2482 . 

2483 . 

2484 . 

2485 . 
2*8 B . 
2487 . 
248* . 

2489 . 

2490 . 
24 9 1. 
2412 . 
24*3 . 

249 4 . 
2485 . 
24 9 * . 
2417 . 
249* . 
2498 

2500 . 

2501 . 

2502 . 

2503 
250* . 
2505 . 
250* . 
2507 . 


PAS**^A43«*2l»1 |*‘T0*|F42i»CA73M I J*PiI»PinOA73*P4 !:«PA5*M 13* 
p A 1 3P I 13»PA5#«2*PA43*PA43P1 13) )*C1 , C2*T2»T3 1*3* I S C I 1 ,J,K)*(2*G1* 
C2*PA32*PA32P1 13»T1ts^2»CHC2*PA31*PA3lP1 13*(C1»|PAIMPA*I*PAI* 
PA4IPPA3I**2}*1 )»«TO)-»2*C!»C2*PA32*PA32P1 1 3 • T 1 )+G1*C2*SG( IM1 , J , 
KP 1 )»T2 , T3*S*l , C1*C2 t SC| I M 1 ,J.K]«PA32'PA32P 1 1 3 • T 1 )/* . 0 
TO • K I Y X ( J , I) 

T 1 * S ■ • 2 

T2*CC2*T 1 *TAI 2 + CC2*S*TA I 1 
T 3 »CC2»S*TAJ1 
T*«CC2*T 1 • T A J 2 

DDPUP 1 13*D2£TA(KLOW)* ( D D 2 X U ■ (TO«tT4*T3)*tTO»»2*XIXX(J, Z 1 * * 2 1 * T 2 J ♦ 
DOZYU* ( TA*T3*T0»T2 1 ) 

DANP1 13«S» | D0PU*RIKP1 13»TA33M*D0PUP113»MK»TA33H+2«Xini (J, 1)* 
021NPMUP1 13/OZETACIK) J 
DAN * DANP 1 1 3 


C15EIF ICMDUI.JJ.KK.IPI.J.KPI)) THEN 
PA13P1 14 » DXIIlt) 

PA2AP1 14 « ( * A J2 ( J ) *AJ 1 (J] ) / 2 . O 

PA31P1 14 • 0C2/2.O 

PA43P1 14 * DC1/2.0 

PAS *P 1 14 « ( - A J2 l J ) ♦ AJU J I ) •* I Y 1 P ( J , 1 ) / 2 . 0*DX I I ( 1} *A 1 1 R ( J , I ) 

PA73P1 14 • DXI I ( I )*KIY1P(J, I I ♦ I -AJ2(J)*AJ1 I J) 1/2.0 
TO* C2 * 1 

R 1 KP 1 1 4 * I G 1 ■ C2*SC I 1.J.KP1 1 » I C 1 ■ ( PA24 «PA73^PA 1 3«PAS8pPA 43»»2 I ♦ 1 1 ** 
TO* I PA3MPA73P I 1 4 + PA21P 1 1 A* PA?3*PA I 3» P AS »P 1 1 4 + P A 1 3P 1 14*PA5l+:» 

. PA4 3»PA43PM*)»S*8*C1»C2»SCI 1 , J.K)*PA31»PA3 1P1 14*|C1*(PA1«*PA«U 
PA l »P A4I*PA3 1 • *2 ) ♦ 1 )**TOj/4 .0 
TO ■ X I YX ( J , I I 

DDPUP 1 14*02ETA| KLOWI * (CC2*DD2XU» (TO"*2*XI XX ( J , 1 ]»*2)"S»TAJ2*CC2« 

. 002 YU* T O ■ S • TA I 2 ) 

DANP I 1 4 iS 1 ( DDPli* A 1 KP 1 14* TA33M+00PUP 1 1 4* X I X« TA33H*2»X IXX I I J , I ] • 

. 0 Z I NF« R 1 KP 1 1 4 / 0 ZETAC I K ) ) 

DAN i DANP 1 1 4 

6 

ELSEIF t CND ( I J . J J , KK , I M2 , JP 1 . KP 1 ) ) THEN 
PA30P 111 ■ A J 2 I J ) / 2 . O 

PA80P118 » AJ2 ( J ) • XI V I P { J . I M2 ) / 2 O 

PA75P1 1 I * AJ2 I Jl/2.0 

TO* (Cl* [ PA30» PA75*PA 15*PA40*PA4S**2 ) ♦ 1 ) ■ ■ t 62 - 1 1 
T 1 • PASO* PA7SP 1 U*PA30P11»*PA7S*PA15»PAI0P1 1* 

RIKPt 1 8*S« ( C 1 • G2» S 6 t I M 1 , J , KP t ) « TO* T 1 »S* C 1 » G2*TO*T 1 J/4 .O 
DANP 1 1 * * S * ( DDPU* 4 1 KP 1 1 *• TA33M+2* X I XX 1 (J, I ]*0ZINF*RIKP1 1 I/OIITAC ( K) 
. ) 

0 AN < DANP 1 1 I 


ELSEIF ( CNO l I I , J J , KK . INI , JP 1 . KP 1 )) THEN 
PA2IP1 17 * A J 2 I J ) / 2 . O 

AJ 2 l J ) /2 . 0 

AJ2 ( J ) « X I Y I P ( J , INI ) / 2 .0 
AJ2 ( J ) » X I Y I P ( J . IM2J/2.0 
A J 2 (Jl/2.0 
A J 2 ( J ) / 2 © 


P ASOP 1 17 
PA5 9 P 1 17 
P A 50P 1 1 7 
PA74P 1 1 7 
PA75P 1 17 
TO * C2 - 1 

T 1 * ( Cl * ( PA28*PA74^PA14»PA3I*PA*4**2) ♦ 1 ) ■ « TO 
T2»PA29»PA74P1 1 7*P A2I P 1 1 1 • P A74 pP A 1 * » P AS I P 1 17 
T3> C 1 »G2*T 1 «T2 

T 4 * IC1» | PA30»PA7S*PA1 5»PAIO»PA4l**2 1*1 )»»T0 
T5*PA30»PA7SP 1 1 7 *P A30P 1 1 7 » P A7S*PA 1 S « P A *OP 1 17 

8 1 KP 1 17* (5* (SCI I M 1 , J , KP 1 )«(CI*C2*T4»T5*S*T3)*C1*C2*T4*T5)*S" ( G 1 * C 2 
. » S G 1 1 , J , KP 1 }*T1»T2»S*T3) }/4 .0 

0ANPI17«S*(DDPU«X1KP1 17*TA33M«2«X1XX1( J. I )«0ZIMF*MKP1 17/DZKTAClK) 

. ) 


0 AN 


0 ANP 1 17 


ELSEIF ( CND l I I . J J . KK , I . JP 1 . KP 1 M THEN 
PA2IP1 IS * AJ2I Jl/2.0 
A J2 l J 1 / 2 . O 

AJ2(J)*XlYIP(J.Il/J.O 
AJ2(J)*X1YIF(J. 1 M 1 ) / 2 . 0 
A J 2 (Jl/2.0 
A J 2 ( J ) / 2 .0 


PA2JP1 1 A 
PASSP1 1 » 

PAS 9 P 1 1 * 

PA73P 1 1 I 
PA74P 1 1 * 

TO ■ C2 * 1 

T 1 ■ l C 1* (PA2I , PA74*PA14*PAII*PA44**2 1 + 1 )*«T0 
T2»PA29*PA74P 1 1 **PA29 P 1 1I»PA74*PA 1*«PASIP 1 II 

R 1 KP 1 1 I > ( S* [$C( I , J, KP! |*tG1*C2*T1*T2 B $*G1*C2* I G 1 * (PA28*PA73*PA13* 

. PA54 + PA43**2 ) * 1 ) * * TO* ( P A2 »»P A73P 1 1 8 + P A28P 1 1 * • PA73 + P A l 3 » PAI4P 1 18] J 
. ♦G1*G2*T1*T2)*G1*G2*SG( IM1 ,J.KP1 ]»T1»T2»S)/4.0 

D0PUP1 1I*OZETA(KLOW|*{CC2*002XU*X1YX(J. [ )»S*TAJ2PCC2*00ZYU*S»TAJ2) 
DANP 1 1 8*S* ( DOPU«R 1 KP 1 1 •«TA33M*D0PUP 1 t *»R 1 K« TA33M*2«X I XX I | J , I ) » 

. OZINF-R 1 KP 1 1 */OZETAC (K) ) 

DAN * DAMP 1 1 8 
9 

ELSEIF ( CNO ( I I . JJ . KK , I P 1 , JP 1 . KP 1 ) ) THEN 
P A 2 * P 1 19 * AJ2( Jl/2.0 

PAS4P1 II * A J2 ( J J * X I Y ! P ( J . I } / 2 O 
P A73P 119 * A J 2 (Jl/2.0 

RtKP11»*G1»G2»SG[ I , J , KP 1 I* ( Cl • ( P A2 S* PA73*PA1 3* P A5* + P A43* * 2 ) ♦ 1 1 * • ( 

. G2 - 1 }*(PA2t*PA73P1 1 • ♦ P A 2 8 P 1 1 I* P A73 + PA 1 3* P AS4P 1 1 • 1 «S/ 4 .0 
DAMP! 19*5* ( DOPU*R 1 KP 1 1 S *TA33M*2« X I XX I {J. I )«0ZtNF«R1KP1 19/0ZETAC(K} 

. 1 

DAN ■ DANP 1 1 9 
3 

ELSEIF ( CNO ( I I , J J . KK . I . JM1 , KF2 ) 1 THEN 

ODPUP 133*QZETA( KLOW) • ( CC3-OOZXU*XIYX(J, I )»S«TAJ)-*-CC3*DDZYU«S*TAJ1 1 
DANP 1 33* DOPUP 1 3 3 * R 1K»S*TA33M 
DAN * DANP133 


ELSEIF I CND ( I I , J J , KK . IM2 . J . KF2 )> THEN 
PA33F 138 * 0C3/2.0 

PA4SP 138 * DC2/2.0 

T O * C 2 * 1 

T1 « (CI*( PA1I*PAI3*PA3«PA4I*PA33»*2 ]♦) |»*T0 
T 2 * ( C 1 * ( PA30»PA75 + PA1 S* P ASO^P A4 S * * 2 ) * 1 1 * * TO 

R 1 KP 13 8* ( 5 * ( 2*C 1 *G2*SG ( IM1 , J.KP1 | * P A4S • PA I S P 1 3 S * T2*S*2 *C 1 *G 2* P A4 S » 
PA45P13l*T2l+3* I2*G1*G2*SC( IM1 . J,K)*PA33*PA33P13S»T1*S*2*C1*G2* 
PA33* PA33P 1 38*T 1 ) 1/4.0 

DANP 138 ( ODPU*R 1KP 1 3 8 • T AS3M+2* X 1 XX It J , I 1 *01 I NF*lt 1 KP 1 3*/D ZETAC I K J 

. ) 

DAN > DANP 1 38 
7 

ELSEIF ( CNO ( I t , JJ . KK. I Ml . J . KP2 ) } THEN 

PA32P137 * DC3/2.0 

P A 3 3 F 1 3 7 * 0C3/2.O 

FA44P137 * 0C2/2.O 

PA45P137 * DC2/2.0 

TO * C 2 * 1 

T 1 * ( C 1 « ( PA17*PAI2^PA2*PA47 + PA32**2 ) ♦ t 1 * * TO 
T 2 ■ 2 * G 1 *G2*PA32» PA32P 1 37*T 1 

T3* ( G1« (PA2**PA78PPA14*PA*I*PA44«»2)4 1 1**T0 
T 8 • 2 * G 1»C2*PA*4*FA44P137»T3 

T5« (G1*(PA1I«PAS3*PA3*PA44 + PA33**2)^1 | ** TO 
T8* ( C 1 * ( PA30*PA7S*PA1 5*PAIO+PA4S* ■ 2 ) * 1 ) • * T 0 

R1KP137* ( 5 * ( 5 C ( I M 1 .J.KPt ) • ( 2 • C 1 • C 2 • P A4 5 ■ P A 4 C P 1 3 7 * T 8 * S ♦ T4 ) ♦ 2 « C 1 * G 2 * 
. PA4S*PA4IP 1 3 7 * T « ) *3* ( S C { IM1 . J . K 1 • ( 2 * C 1 • G 2 » P A3 3 • P A33P 1 37 • T S ■ S ♦ T 2 1 ♦ 
. 2»G 1 ■ C2* PA33*PA33P137» !*)♦*■ (2* G1«G2*SG( I , J , KP 1 )*PA44*PA44P137*T3 

. • S*T*|*3*<2*G1«C2»SG(I,J,Kl»PA32«PA32P137*T1*S-*>T21]/4.0 

TO* X I YX ( J . I 1 

DOPUP 137* DZETAl KL OW 1* ( CC3*D0ZXU* t TO»*2*XI XX ( J , I 1 * • 2 ) * 5 • T A I 1 ♦ C C 3 ■ 

. DOZYU*TO*S*TAI 1 1 

DANP137»S*(DDPU»RtKP137«TA33M+0DPUP137*R1K*TA33M*2»XIXXl(J,I)* 

. 02 I NP«R 1 KP 1 37/OZETAC ( K tl 

C-lo 


OF 


r>: 

k V* 





DAN t DAMP 137 


250* 
2101 . 
25 to 
2 5 11. 
2512. 
25 t3 
25 1 * 
25 15. 
2515. 
2517. 
2515. 
2511. 
2520 . 

252 1. 

2522 

2523 . 
25 24. 
2525 . 
2525 . 
2527 . 
2525 . 
2525 . 
2530 . 

253 1. 

2532 . 

2533 . 

2534 . 

2535 . 
2535 . 
2537 . 
2535 . 
25 35 
2540 . 

254 1. 
25 42. 

2543 . 

2544 . 

2545 . 
2545 . 
2547 . 
2544 
254* . 
2550 . 

255 1. 

2552 . 

2553 . 
25 54 . 
2555 . 
2555 . 
2557 . 

2554 . 
255 * . 
2550 . 
215 1. 
25 42 . 
2543 . 
25 54. 
25 55 
25 44 . 
2557 . 

2555 . 
25 5* . 
25 70. 
2*7 1. 
2172 . 

2573 . 

2574 

2575 
2171 . 
2*77 . 
2575 . 
257* . 
2540 
254 1 
2*42 . 
25 53. 

2554 . 

2 545 . 
2545 . 
2157 . 
2545 . 
2551 . 
25 50 . 
2f>1. 
2*52 . 

2553 . 
25 54 . 

2555 . 

2554 . 
2*5 7 . 
2554 
25*5. 
2500 . 

2 501. 

2 402 
2 403 
2 404. 
2405 . 

2 501 . 
2507 . 
2504 . 

2 505 . 
2510. 

2 111. 
2112. 
2113. 

2 5 14. 

2 4 15. 

2 5 15. 
2517. 
2515. 
2415. 
2520 . 
212 1. 
2122 . 
2123 . 

25 24 . 
252* . 


ELSEIF [CNO( II , JJ,KK, I . J.KP2I ) THEN 

A A 3 I F 1 3 I » DC 3 / 2 0 

FA32F 134 « DC 3 / 2 O 

FA43F 134 • DC2/2 . 0 

FA44M3I * DC 2 / 2 O 

TO * G2 • 1 

T 1 * ( G 1 « [ FA I 7»AA52 + AA2»AAA7'*AA32*»2 ) ♦ 1 ) • • TO 
T 2 • I C 1 ■ [ AA25*AA74+AA14*AAI*+RA44**2)+1 ) • • TO 

A 1 K F 13 4* ( S * [ S C [ r , J ( KM ) » ( 2 * C 1 *G2*AA44» A A 4 4 p 1 34* T 2 • S ♦ 2 * G 1 »C2*AA43« 
PA43F135* ( C 1 * ( PA24*FA73 + PA I3*FAI4^FA43 Tf 2 ) ♦ 1 ) > > TO ) F2* C 1 *G2 • FA44* 
PA*4P11*«TJ)+3*!SG( I , J,K)» |I*C1*C2»PA32«FA32F13I»T1*S*2»CI*C3» 
FA31»FA3 1F13I* 1 Cl* I FA I S*FAI 1 ♦ A A l*FA4l*FA3 1 * * 2 > ♦ 1 )«»T0)*2*C1*G2» 

. FA32«FA32Ft34«Tl )*2«C t •G2»SGI IM1 , J.KF1 ) «FA44> 0 A4 4F 1 3«>T2*S«I<C t • 

. C 2 * S C ( INI . J , K ) *F432*FA32P t 3 4 • T l )/4 .0 
TO • X I YX I J . I ) 

T 1 ■ CC3*$*TA12*CC3*TAI 1 
T 2 * C C 3 * TAJ 1 
T3*CC3*$«TAJ2 

DDAUA 1 3 5 » D2ETA( K L OW ) « ( DOZXU- (TO* (T3 + T2 ) * | TO- »2*X I XX ( J IJ ••2 J «T 1) ♦ 

. 00in»» { T 3*T2*TO* T 1 ! ) 

DANF 1 3| is • ( DDFU* A 1 KP 13 4* TA33M+0DFUFI3»«AU»TA33M* 2 « X I XX I ( J I) • 
0ZINF»F1KF134/DIETAC| K ) | 

DAN • 0ANP134 

IS 

ItSEIF I CND | J I , J J , KK , I F 1 , J , KP2 ) | THEN 
PA31F131 ■ 0C3/2.O 

F A4 3F 1 3 I ■ DC2/2.0 

TO * C 2 - 1 

R 1 K A 1 3 9 • (2*G1*G2»IC| I , J , KA 1 )*AA43*AA43A139* | C 1 * ( FA!4*FA734FA1 3> 

. FAS4»FA43«i2l + 1 |t.TO*S*l*GUG2*SC|! ( J 1 K)«FA3 1*FA3IF13S»(C1«|FA1»i 
FA41*FA1»FA4I*FA31««2)*1 ) * • TO ) /4 . 0 
TO * X I YX ( J . I J 

D0PUA13f.0IBTA(Kl0W)MCC3*DDZXU«tTO*»2*XIXXlJ.I)*.2)«TAI2*CC3» 

D 0 2 Y U * T O » T A I 2 J 

0ANF)3S»$»(D0PU*MKF13I*TA33M+D0FUF13»*A1R*TA33M*2*XIXXI(J I)* 

. OZ I HF* A 1 K A 1 3* / D 2ET AC ( K ) ) 

DAN « DANF t 31 
3 

ELSEIF ( C N 0 { II , J J , KK , I . JF 1 , K A 2 ) ) THEN 

DO AO A 1 4 3 ■DZ£TA( K L OW ) » ( CC3 • 0 D 2XU» X I 7 X ( J . 1 ) • T A J2* C C 3 • DD2 YU« TA J2 ) 

DANA 1 43 • OOAUF 1 4 3 ■ R 1 K*S*TA33M 
DAN » DANA 1 43 

1 

IL5EIF ( CND ( I I , JJ , KK . IH2 . J . K*3 )J THEN 
AA45 A 15 1 • DC3/2 . 0 

T O i | C 1 ■ | FA30*FA75*FA 1 S « AA 40+PA4 5**2 )♦ 1 )** IC2- I ] 

KlKA151iS*|2*GI*G2»S:|IH1,J ( KA1|*FA4S.FA4IFUl*T0»|*2»C1«G2»FA4S* 

A A 4 5 A 1 5 1 * T 0 J / 4 . 0 

0ANA1 41 * S * ( 0 D A U * A 1 K A 1 51 >TA33M*2*XIXX1 | J , { ]«OZlMA»RtKR141/OZ£TAC(K) 


DAN 


DANA 1 6 1 


ELSEIF ( CNO ( I 1 , JJ , KK , INI , J, K«3) ) THEN 
AA44A1I2 * DC3/2.0 

A A 4 5 A 1 52 • DC3/2 . O 

TO » C2 * 1 

T1 « IC1»|FA2S»AA74*AA14*FASS>AA44*«2]*1 )»*TO 
T 2 » 2 « C 1 « C2 > A A4 4* A A44 A 1 5 2* T 1 

T 3 * [Cl* ( FA30*FA1S + AAI*«FAI0*FA45»»2 1*1 ) ■ ■ TO 

A I KF 1 ( 2 i [S» ISG( INI , J , K A 1 )*(2»Gl«G2*PA45*AA4SAlS2»T3*S*T2l*2»Ct*C2« 
. FA4I*AA4IA 1 42 » T3 ) ♦ 5 * ( 2*GI*G2*SG( 2 , J, KF 1 }*AA44*FA44F||2 1 T1*S*T2) ) / 
4.0 

DANAt 4 2*5* t DDFU* A 1 KF 1 42*TA33M*2«XIXXI I J , I ) «OX I NF« R 
DAN * DANA 1 12 


52/DZETAC ( K ) 
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T2* IC1*(PB53*P84-*PB23*PBt4*Pi34»«2)-M J»»TO 

R1KUP34* ( 5 » (SG( I . J, KM 1 )• ( 2*Ct*C2*PB34*PB34P34*T2»5 + 2*Cl*C2*PB37* 
PB37P34*(G1*(P852*PB7‘»PB22 a P9(7*PB37*>2l'*’l )**TO)>2*C1*G2*PB34* 
PB34F34*T2 ) (SCI J ,J,K)*(2*G1>C2*PB32«PB32P34*T1*S'*>2*C1*C2*PB31* 

. PB31P34* ( C 1 * ( P B 1 l*PBtt' a PB1*PB48'*’PB3 1 • * 2 J * 1 )**TO) a 2*C1*G2*PB32* 

PB32P34»TI J + 2»G1»C2*SC| 1 Ml , J,KHI ]*PB34*PB34P3S*T2*S + 9*G1*C2*SC( 
IM1 ( J,K)*PB32*PB32P34*Tl)/4.0 
TO* X I YX { J , I | 

T 1 *CCI*$*T4I2 + CCI*T4I I 
T 2 *CC9*TAJ I 
T 3 * C C 9 * B * T A J 2 

OOPLP39*DZ£TAfKLOW}* (DOZXL»!TO«(T3»T2)*(TO**2*XIXX(J I ) * • 2 ) * T 1 1 ♦ 

. D 0 2 Y l • ( T3*T2*TO*T 1 ) ) ' 

DANP3B*DOPL«91KUP3B»TA33P*DOFLP39*II1KU*TA33P*2«XIXXI(J r)*OZINF« 

. 91KUP34/D2STAC £ K J 
DAN * DAN P 3 1 

C P 3 9 

ELSEIF ( CND { I I . J J , KK . 1 P 1 . J , KM2 M THIN 
P83IP3I * 0C9/2.O 

P937P39 * DCI/2.0 

TO«C2- 1 

9 1 K U P 3 9 * ( 2*C1*G2*SG ( I , J, KM1 l»PB37»PB37P39« ( Si ■ ( PB52*PB7*PB22“PBI7* 
PB37 a *2|+l f **TO*S*l»C 1 * C2» JG ( I .J < Kj«PB3T»P*31P39*(C1*(PB1«*PB91*- 
. PH»PIU*P13l»*2 |*1 )«*TO)/l .0 
T O * X 1 Y X ( J , I ] 

DOPLP39*OZETA(Kl.DW)«(CCI*DD2XU*(TO**2-*XIXX(J,r)««2)«TAI2*CC**DDZYL 

*TO*TAI2) 

OANP3**DDFL*R1KUF39«TA33P*ODPLP39*R1KU»TA33P»2*XIXXI(J n*OZINF- 
. 9 1KUP39/QZCTAC I K ) ' ' 

DAN ■ 0ANP39 

C P43 

ELSEIF I CND ( 1 I . JJ . KK , l , JP 1 . KM2 ) ) THEN 

DDPt,P43*0ZETA ( K L OW ) » [ CCI 1 OD IX l » X I Y X (4, I }»TAJ2*CC9»B0ZYL*TAJ2] 

D ANP * 3 * D D P L F 4 3 * 9 1 KU » T A3 3P 
DAN • DANP43 

C P5< 

ELSEIF ( CND (M . J J , KK . IM2 , JM1 , KMI ) | THEN 
PB24PSB * * ( 1 . 0/2 . O* A J t( J J) 

PS54PS5 * * I 1 . O/ 2 . 0» A4 1 ( J ) • X I Y I P ( J , IM2 ) J 

PBS9P5I * - I 1. 0/2 . O* A4 1 ( 4 ) ) 

TOtPBS4PSf>PB9+P924*PB99P54*P924PS4ap||| 

Tt • (G1*(PBS4«PB9'»P824*PBS9 + PI39a*2l + 1 (C2* 1 ) 

9 1KUP5I*S* | C 1 »C2*SC l IM1 , J , KM 1 ) • TO* T 1 * J »G 1 « C 2* TO* T 1 1/4.0 
DANPS8tDDPL«ft1KUP55 a TA33P+2 a XIXXI (4, I )«0ZINF«R1KUPSS/DZETAC(K) 

DAN * OANPII 


C PSS 


C P * 9 


C Pil 


EL5EIF ( CND ( I I . J4 . KK . IM1 , 4M1 , KM1 } ) THEN 
PB23P97 * * ( 1 ,0/2 0*441 | JJ ) 

PB24P57 * * ( 1 . 0/2 . O* A4 1 | J ) j 

P9S3PS7 * •( 1 .O/2.0 a A41(4)*KIVIP{4. I M 1 J } 

PB54P57 • • ( 1 . 0/2 . O* A4 1 ( 4 ) a X I Y I P ( J , 1 M2 | ) 

PB94PS7 « •(t.0/2.0*AJ1(J|) 

PSS9P57 * • ( 1 . 0/2 . 0-AJ1 ( 4 I) 

TO*PB53P57»PB4+PB23 a PB94P57*PB23P57«Pt«4 

TUC2-1 

T2*(C1*|MS3*PB»*PB23*Pm + l*n4»*2)tU*'Tt 
T 3 * C 1 *G2«TO*T2 

T4*PBS4PS7>PB9 + PB24 a PBf9P5?-*-PB24PS7*PB«9 

T5* (C1*(PB$(*PBI*PB2«*PIII»PI3|*t2)«i )*»T1 

91KUP57* ( S * ( S G { I M t ,J,KMt)«(Ct«G2«T4»TS*S*T3l*Gt»C2*T4*T5)+S»(Gl*G2 
*SC( I , J , KM 1 }*TO*T2 a S+T3) )/4 . O 

DANPJ7*DDPL.RIKUP57*TA33P*2*KIXXI(j,n*oZI N F • R 1KUPS7/0ZETAC I K ) 

DAN * 0 A N P 5 7 / w is . i * j 


ELSEIF ( CND ( I I , JJ . KK , I , 4M1 . KM 1 J ) THEN 
P922P54 * - ( I . 0/2 . 0» AJ 1 l J J ) 

PB23PS4 * - J 1 . 0/ 2 . O* AJ 1 ( J ) ) 

P952PS4 » * ( 1 .0/2.0*AJ1|J)«XIY(P(4 i I J ) 

PBS3P54 * * ( 1 . 0/2 . 0* A4 1 j J J *X I Y I P ( J . I Ml )) 

PB57P59 * - ( 1 . 0/2 . 0* AJ 1 ( J )) 

PB99P58 * - ( 1 . 0/2 . O* A J 1 ( J ) j 

T0*PB53P59 a PB«>PB23*PBI4Pt4*PB23P54*PBB4 

T 1 * C 2 * 1 

T2i(Ct*|PSS3*PBI*PB23«PBI**PB3»»*2)*1 )»*T1 

91KUP54* I S • (SGI I , J , KM I ) a (GT a C2 a TO a T2 a 3+G1*G2 a {PBS2P59 a PB7«-PB22 a 
^ , *^^** + ^®22PS4»PB57) a jG1»(PB52 a PB7*Pi22 a PBS7^PB37 a «2I+1) aa Tt)*61 
»C2*TO*T2)+C1*C2»SCi IM1, J,KM1 )»T0*T2«I)/4 O 
TO » S » • 2 

DOPLPS».D2ETA(KLDW).(CCS.OOZXl*X!rx(J,I |*To*TA4 1 ♦ C C S * D 0 Z Y L * TO* T A J 1 
DANP54*00PL*ft1KUPS9>TA33P+00PLPS4 a R1KU a TA33P+2*XIXX[ ( J I )*OZINP* 

. 91KUP59/0ZETACI K) * ' ' *** 

DAN * OANPSS 


ELSEIF (CNOI II , JJ.KK, IP1 . JM1 .KMI ) J THEN 
PB22PS9 • - { 1 . 0/2 . O* AJ 1 l 4 J ) 

PBS2P59 * ♦ ( 1 ■ 0/ 2 . O a AJ 1 ( J ) *X I Y I P ( J . I J | 

PB97PS9 » •(1.0/2.0*AJI(J|| 


91KUP59*Gt*G2*SG( I , J , KMI } a {P8S2P59»PB7-*PB22 a PB47P5t*PB22P39*PBI7 
(G1 a ( PBS2*PI7 a PB22*PBB7+PB37**2 ) ♦ 1 ) aa ( C 2 • 1 ) « S / 4 O 

OANP59*OOPL a 91KUP5t*TA33P*2«XIKXl(J < I)*OZINF a 9lKUP59/OZETAC(K) 

DAN < OANPSB 


ELSEIF ( CND { I I , JJ , KK , I M2 . J . KMI ) ] THEN 

P99P11 • D X I I ( 1 M2 ) • S 

P924P91 « ( -AJ2( JI^AJKJ) J/2.0 

PB33PB1 • DCS/2.0 

PB39P91 * 0C4/2 0 

P0S4P91 t OXI I ( IM2 ) *A1 19(4, t M2 ) * S + ( -AJ2(J)+AJ1 (J) ) a XIYIP{j IM2)/ 
2 . O 
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C P62 


C P 63 


C P *4 


C P 5 6 


C P 67 


C P 6 8 


P B 6 9 P 6 I * OM I 1 t IH2 1 «X I Y I P { J . IM2 ( *S* ( - AJ2 t J i ♦ AJ 1 ( J ) I /2 O 
T © * C 2 * 1 

T 1 * ( G 1 * [PB16 , P863*PB3«P646*PB33**2 1*1 (■■TO 
T2*(C1«(FB54»Pll+PB24»P8i»*P839«-2|*1I**TO 

T3*PBS4«PB9P6 1 * P B 5 * P 6 1 *P6»*PS24«P66tP6 1 ♦PB24P6 1 *PB69+2"PB39* 

PB39P6 1 

R 1 KU P 6 1 ■ (S»(C1*G7*SC( IM1 . J.KM1 }-T2»T3»S>Cl»G2*T2«T3)*3*|2*C1-C2*SC 
( IM1 ,J, K)»PB33*PB33P61*T1»S*2*G1*G2"PB33*PB33P61*T1 ) )/* -O 
D A N P 6 1 *DDPL"R1KUP61*TA33P+2*XIXXI ( J t I )»0ZINF«R1KUPil/0ZETAC(K) 

OAN • DANP61 


ELSEIF 
PB8P 62 
PB9P 62 
P 6 2 3 P 6 2 
P824P 62 
PB32P 62 
PB33P 62 
PB38P 62 
PB39 P 62 
PBS3P 62 
2 . O 

PB54PC2 
P666P62 
PB 89P 62 

TO « G2 - 1 
T I ■ I C 1 • 
T 2 « 2 * G I 
T3 » ( C 1 • 

T 4 ■ P 9 S 3 


( CNO( I I , JJ.KK. IM1 , J, KM1 ) ) THEM 
■ D X I I [ I M 1 ) *S 
» DX I 1 l 1M2 1 

i I - A J2 [ J I ♦ A J 1 t J ] J / 2 . O 
i ( -AJ2[J)+AJ1 {J] 1/2.0 
i DCS / 2 . O 
« DCS / 2 . O 

• D C 4 / 2 . O 

• D C 4 / 2 . O 

i OXI I ( I M 1 | » A 1 1 R | J , I Ml )*$•*( • A J2 l J ) + A J 1 (J1 ) ■ X I Y I P ( J , I Ml )/ 

• ( -AJ2(J)+AJ1 (J) ) » X I Y l P { J . 1M2 1/2.0*0X11 ( I M2 ) ■ A 1 1 P | J , I M2 I 
» DXIII I M 1 ) * HI Y I P | J , IKl J * S ♦ I * AJ2 I J I *4 J 1 (J) 1/2.0 

> D X I I [ IM2I*XIVIP(J, 1 M2 !♦( *AJ2( J ) ♦ A J 1 (J) )/2.0 

( PB 1 7*PB12*PB2*P847*PB32* » 2 ) *1 ) • • T O 
»G2 a PI32*PB32P«2*T 1 

( PBS3“PB6*FB23"P966*PB38 b *2 1 ♦ 1 J ■ * TO 

*PB6P82^PB53PB2»PB8*PB23«PB68P62*PB23P62“PB68+2«PB3*» 


PB36P62 

T J i 5 I * C2* T3*T4 

T 6 * |C1*(PB16*PI63^PB3“PB46*PB33"*2)*1 ) * * TO 

T 7 * ( C1 , (PB54*PB9'*PB2*“PB69*PS33**2}*1 ) * * TO 

T*»PB54«PB1P62+PB*4P62»PB*^FB24«PB61P«2*PB24P62*RB69*2*P13*» 

PB36PC2 

R1KUPS2* f S ■ (SGI I M 1 , J, KH1 )* [CI*C2*T7»T1*1*T5 |*G1»G2*T7*T61+3* (SCI 
J M 1 , J , K ) • ( 2«01*G2*PB33*PI33Pi2 B T9*S*T2 ] ♦ 2 ■ G 1 •C2*PB33*PB33P«2*T6 )♦ 
S* | C 1 •G2 I SC I I , J . KM1 )*T3»T4*S*T5 ) ♦ 3 • l 2 ■ G 1 • G 2 • S G | I ,J,K)»PB32« 
PB32P€2*T1*S*T2) 1/4 .0 

TO • X 1 YX ( J , II 

T 1 « 5 • * 2 

D0PLP62 a D2ETA| KLOW) * ( CC5*002Xl» { TO*»2»XlXX I J , ! ) » * 2 ) * T 1 » T A 1 1+CCS* 
002 V L *TO* T 1 • TA1 1 J 

DAMP 62»DDPL*R 1 KUP«2*TA33P + 0DPLP62*R IXU*TA3 3P^2* XI XX 1 ( J . I l * 0 Z I N F ■ 

R 1 KUP6 2/ D2ET AC ( K ) 

OAN > DANP62 


ELSEIF (CNDItt, JJ,KK,t,J.XMt|) THEN 
PB7P63 ■ 0 X I I ( 1 ) * 5 

PB6P63 ■ DXIt(tMI) 


* A J 2 | JJ+AJ1 (J) 1/2.0 
| - A J2 I J ) ♦ A J 1 | J ) I /2. O 
DCS / 2 . O 
DCS/ 2 . O 
D C 4 / 2 .0 
D C 4 / 2 . 0 

DXI i [ I ) ■ A 1 1R(J, I )■$♦( - AJ2(J)*AJ1 I J) )*XIYIP(J, ! 1/2.0 
(-AJ21JI+AJJ (J) |*XIYJM J. IM1J/2.O+0XII1 IH1 ) * A 1 I R < J , IM1 | 
DXI I l I ) • X I Y I P ( J . 1 >«S+( - AJ2(J}»AJ1 I J) ) / 2 .0 
DXII [ I M 1 ) * X I Y I P 1 J , 1 M 1 ) ♦ ( • AJ2 I J I «AJ t ( J ) 1/2.0 


PB22P S3 
PB23PS3 
PBS 1 P 63 
P832PS3 
PB37P 63 
P838P83 
P852 P 63 
PB53P 63 
PB 67P 63 
PB 6 8 P 63 
TO ■ C2 - 1 

T 1 » l C 1 ■ I PB17*PB62*482*PB47*P832**2 )*1 ) * * TO 
T2 * ( C 1 • ( PB53*PB8»PB23*PB«6*PB36*»2 1*1 1 *»T0 

T3»P8S3*PB6P13^PBS3P63*P18*PB23*PB6»P*3*P823PS3»PB86*2*PB38* 

P836P63 

R1KUP63* ( S * ( S G ( I , J, KM1 )*(Gt«G2*'T2*T3»S*C1»C2*(G1MPBS2«PB7*PB22* 
PB67*PB37"*2)*t )«*T0»(PB52*PBTP634PBf2PB3*Pi7*PB22*PBi7P934 
PB22P63»PB67*2»PB37»PB37P63I )*C1«C2»T2*T3l+3*(SG| l , J , X ) « ( 2*11 I *C2* 
PB32*PB32P63*T 1»S*2*Gl*G2»PB3i*PB31P»3* (Cl * ( P81 l*PBI 1 *PB 1 *FB* 

PB3 t * • 2 1 ♦ 1 | ■ T 0 )42*C1»C2»PB32*P832P63*T 1 )*Gt«62»SGl IM1 . J , KMt 1 ■ T2« 
T3"S>6*G1*»C2*SG ( IM1 ,J,K)»P132«PB32P63«T1 )/4 .O 
TO * X I Y X J J . I I 
T 1 i 5 * * 2 

T2 » C C 5 * T 1 • T A I 2*CC5*S»TAI 1 
T3 « CC5*S* TAJ 1 
T4«CC5«T1* TAJ2 

D0PLP«3*D2ETA[KLaWl»(D02XL»|TO»{T4*T3)*-|TO"«2*XIXX[J,I}»*2)*T2)* 
OD2YL*(T4*T3*TO»T2) ) 

DANP63*OOPL*R 1KUP63*TA33P*DDPLP63*R1JCU*TA33P*2*XIXXI (J, 1 )*02INF* 

R 1 KUP83/D2ETAC { K ) 

OAN * D A N P C 3 


ELSEIF (CNDlXX.JJ.KKj IP1,J.KM1)J 
P fl 7 P * 4 ( 0X11(1) 


THEN 


[ -AJ21J)+AJ1 (J) 1/2.0 
0CS/2 . 0 
0 C 4 / 2 ■ 0 

( * A J2 | J ) + A J 1 (J) ) * X I Y I F I J , X | / 2 . 04 D X 1 I ( I | * A 1 1 9 ( J , X ) 
OXI I ( I ) » X I Y I P ( J , I ) ♦ { ■ A J 2 I J I ♦ A J 1 ( J 1 1/2 0 


PB22P 14 
PB3 1 P 64 
PB37PB4 
P652P64 
PB67PB4 
TO * C2 - 1 

R1KUP64* ( C 1 *C2* SG ( I , J.KM1 )»(GlMPB52*Pi7*PB22*PB«74PB37««2)*1 1 ■ * TO 
*(PBS2*FB7PI**F>S2F»A«M7*»I22*PB!7FM*PI22F|4*P>I7*2*FB37« 
P837P94 ] *S+6*C1>C2*$G{ 1 . J , K 1 *PS 3 1*PB31PB4» |G1*(Pfi1«*PB61+PB»«PB46 

♦ PB3 1 * * 2 ) ♦ 1 )**T0)/4 .0 
TO«XIYX( J. I ) 

DDPLPB4»0ZETA ( KL OW ) * (CC5*D02XL» I TO»»2*XIXK( J, 1 ) » * 2 )*$“TAI24CC5* 
D02YL*TO*S*TA 12 I 

DANP64*0OPL*R1KUP64*TA33P40OPLP64*R1HU*TA33P*2*XIXXI (J, 1 ) ■ 0 2 I NF ■ 
R1KUP84/0ZETAC( K ) 

DAN • DANP64 


ELSEIF ( CND ( 1 I , JJ , KK , I M2 , J P 1 , KM1 ) | THEN 
PB24P66 » A J 2 ( J } / 2 . 0 

PSS4PK « AJ2 ( J ) ■ X I Y IP | J , IH2 ) /2 . O 

P B 8 9 P 61 « A J 2 ( J ) / 2 . O 

T0»PB5*P8«*P694PS2**PB68P66*P824P66«P86I 

T 1 * ( G 1 * ( PB$4*PB9 + PB24»PB89*PB39**2 1 ♦ ! I »» I G2 - 1 1 
RIKUPII'S* ( C 1 * C 2 * S G ( IM1 ,J. KM1 |*TO*T1*$^C(*G2*TO*Tt )/4.0 
DANP66 *DOPL*R 1 KUP66»TA33P*2*X IXX t ( J , 1 l«02INF-R1KUP68/DZETAC(Kl 
DAN t DAMP 66 

ELSEIF ( CND l I 1 , J J . KK . INI , JP 1 . KMt ) | THEN 
PB23P67 « A J2 ( J ) / 2 . O 

PB24PI7 * A J 2 ( J ] / 2 . O 

PBS3P67 * AJ2 ( J )*XI YIP ( J , 1M1 ) /2 . 0 
PBS4P67 * AJ2(J)*XIYIP(J, IH21/2.0 
PB 66P67 * A J 2 ( J ) / 2 . O 

PB 69P67 * A J 2 ( J ) / 2 . O 

T0*PB53P87*PB64PB234PB6BP674PB23P67«P666 

T 1 » C 2 « 1 

T 2 • ( G 1 * ( PBS3*P184PB23*PBB64PB36*»2)41 I « « T 1 
T3«Gt*C2*T0«T2 

T4*PBS4P67*PBI*P624»PB68P67+PB24P|7»P869 
T5 • ( G 1 * ( FBI4»FB9+FB2A*FB6t + FB31**2 1 ♦ 1 ) ■ ■ T 1 

R1KUP67*(S»(SC(IM1,J,KM1 )*|C1«G2*T4«T$*$*T3)*G1*G2 , T4»TS)*S ,B (C1*C2 
• SGI 1.J.KM1 1»T0*T2-S*T3) 1/4.0 

DANPS7*OOPl«R1KUP67*TA33P*2»XIXXI[J,l)*OZINF«R1KUPt7/D2ETAC(K) 

DAN t 0ANP67 


ELSEIF | CND | I I , JJ , KK , I , JP1 , KMI ) } THEM 
P B 22 P 68 • A J 2 ( J 1 / 2 . 0 


c-u 
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A J 2 ( J ) / 2 . O 

AJ2(Jl*XIYIP(J, I )/2 O 
A J 2 ( J I »X I Y I P( J. IM1J/2.0 
A J2 l J | /2 . O 
A J 2 l J ) / 2 . 0 

4*P84+P823*PB44P*4+PB23P* 


PB23P44 
PB52P44 
PBS3PS4 

TO « PBS3P 

T t • C2 - t 

T 2 » ( Cl *(PB53*PB4+PB23*PBB4*PB34**2 ) ♦ 1 ) ■ ■ T 1 

PI KU P • 4 ■ (5* (SG( ! ,J , KM I ) ■ (Cl»C2*TO»T2*$*CI*C2* (PBS2PB4*PB7+PB22* 

. PB*7P*4*PB22PI4aPBI7 ) « ( Cl » (PB52»PB7« , P822»PBS7*PB37**2 ) ♦ I ) » • T 1 >-*C 1 
■C2*TO»T2)4CI*C2*SC| lMI.J.KMt I » TO. T 2 * S ) /4 . O 
OOPLP4«iDZETA(KLOW)»|CCS»OOIXL»ltiy)(| J, I ) * S • T A J2*CC 5 • BO Z Yl *S« T A J2 | 
DAMP 84 ■ OOP L * P 1 KUPH* TA33P*OOPLPII*P 1 KU*TA33P*2*X I XX I ( J . I ) *0 Z 1 NF» 

. A I KUP44/0ZETAC I K ) 

DAN * DANPC8 

ELSE I P ( CMO { I I , J J . KK , I P 1 . JP t , KM1 ) ) THEN 
PB22P *9 « A J 2 [ J ) /2 . O 

PB52PI* « AJ2I J ) »XI YIPl J. n/2. O 
PBS7P89 a A J 2 I J ) / 2 , 0 
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DANP14»00PL*P1RUP4**TA33P+2>XIXX](J, 1 }*0Z(NP*P1KUPI4/02ETAC(K) 

DAN a DANP44 
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OXII( IM1)«X1TIP(J. I M 1 )»$♦( *AJ2(J)*AJ1 (J) J/2.0 
DXI 1 ( IM2)*XIYIP(J. I M2 ) ♦ ( ■ A J2 l J I ♦ A J I (J) )/2.0 


P B *2 P * 7 
PBB3PS7 

TO* G2 * 1 

T 1 * ( G 1 * ( PB 17*PB»2*PB2*PI47*PB32»»2 )♦! ) • ■ TO 

T2 aPB 1 7*PB I2PI7 + P8 1 TPI7*PH2*PB2*P|41P|7*PB2PI7*PB47*2»P832* 

. PB32P47 

T3*G1*C2»T1*T2 

T*« (G1* |PB1I»PB«3^PB3*PI4»+PI33»*2)*1 )**TO 
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P 1 * 2 • P I J . KLOW-2 , 1TE1 

P 1 *3 i P ( J , KLOW- 1 , 1TE ) 

P 1 A 4 • P( J.KIOW, ITE) 

P 1 *5 « P I J . KUP . I TE | 

MAC • 9lJ.KUPP1.rTEl 
9 1*7 » P ( J , K U P ♦ 2 . I TE J 

C 

C PC 

c 

PCI * OXtl ( I ) ■ |PA**5 pP** )*OXINF/XI*IPtJ, I ] 

PC2 i OX l I ( IM1) « l PS7-SP-PA* IpOKINP/K I X IP ( J , IMI ) 

PC3 « OX I I ( IM2 ) * f P*I»S*P»7 ) POX INP/X I X ! P ( J . IM2 ) 

PC7 • OX l I { l J * 1 P *3»S*P 54 ) POX I HP /X I X rP ( J . I ) 

PC* ■ OX I I { JM1 ) * ( p S2»S*P*3 ) POX INP/Jt I X I P ( J . IM1 ] 

pc* ■ ox i i ( i m 2 ) * [ p * i » s*p * 2 ) pox r np/x r x i p l j , i m 2 j 

PCI* * X I V I P ( J . 1 )«OXIHF*S/XIXIP( J. I ) ♦ I A J 2 I J ] » ( P9**P93“PA9*P**)PAJ1 
I J ) * ( P5* *P*I ■ PH • PI3 ) )/ 2 . 0 

P C 1 7 * XIYIPIJ, INI )*OXIMP*S/XIXIP(J, IM1 I ♦ | AJ2 I J I • I P93PP92*PAA-P*7) 

. + A J 1 (J}*(P*t+P*7-PA3-P*2) J/2.0 

PCI* * X!VIP( J, I M2 ) *0X IHP*S/K1XIP1J, IM2 ) ♦ [ A J 2 i J ) * ( PI2*P1 1 *PI7*PII) 
. ♦ A J t ( J) * ( P*7*P**-P»2-P» 1 ) 1/2.0 

PC22 « XIYIP(J. I)«0XINFPS/XlXlP(J.Ilp(AJ2tJ)*(P5*PPI*-P»4-p«3)PAJ1 
( J J • ( P*4*P 53-P5* - PS1 J ) / 2 . O 

PC23 • XIYIPIJ. IMI |»0X1NP*S/XIXIP(J. IMI ) * ( A J 2 I J I ■ |Pi*pPS7-P*3«P*2) 
. PA J 1 ( J ) * | P 13 + P *2 • P5* - P 5 7 )) /2 . O 

P C 2 4 * XIYIPl J. IM2}*OXINP*S/XIXIPlJ.IM2)p(AJ2(J)*(P*7*P*«-P«2-PS1) 

. ♦* J 1 | J | » | P «2PP 5 1 * P 57 - P 5 * ) J /2 . 0 

P C 3 1 * • ( A 1 K ( X ) • I CC2* P 1 • **S *CC4» P 1 *4 ■ S *CC I • P 1 *2 ■ S *CC 3 * P 1 *7*CC 1 » 

. P1»5PCCS*P1*3}>P02IMPp(A1K(K)*|P**PP5»-P54-P53)pA2X<K)*(-P«t-P»*p 

. PIM + Ptnl )/2.0 

P C 3 2 * • ( A 1 K 1 K ) » ( CC2* P 1 » 5*5 PCC4*P 1 54* S PCC »»P 1 *2 * 5 *CC 3 » P 1 57PCC 1 • 

. P1*5PCC**P1*3)lP0ZlNPp{Alx|K}*(P»iPP*7-P53'P52)pA2K{Kl*(-P*4-P*7* 

. P 1 1 ]pP 1 12 11/2.0 

P C 3 3 * - l A 1 X I X ) * ( CC2* P 1 * •* S *CC4*P 1 *4»S *CC *• P 1 *2 « 5 + CC 3 *P 1 *7* CC 1 » 

. P1»5pCC 5*P153) )P02IMPp{A1K{Xj*(P57pP*5-P*2-P«1 ) * A2K I X 1 * ( * P* 7 - P* « + 

. P1I2+P 111 | 1/2.0 

PC37 * ■ I A 1 K 1 X M t )*{CC2»P15 «*SpCC4*P1*4*SpCC5*P1*2»SpCC3»P157pCC1* 

. Pt*5PCC5*P1*3) 1 pQ2INP*(A2X{XH1 1«(P**pP**-P»*-P*31*A1K(KM1 ) * ( P«4* 

. P«3 ■ P39 *P31 11/20 

P C 3 * t • [ A I X | KM 1 )• t CC2*P 155 *$pCC4*P1 I4«S+CCI*P1I2 , S*CC3*P151pCC1* 

P l«5*CC5*P 1 *3 | ]P0ZINPP(A2K(KM1 ]*(PA*pPI7-PI3<>P42)pA1K(KM1 1 * ( P 5 3 * 

. P • 2 ■ P 3 A *P37 ) 1/2.0 

P C 3 I * - ( A 1 X 1 KM 1 )*(CC2*P155«SpCC4«P114»SpCC5*P1*2»SpCC3*P1*7pCC1* 

. P IA5pCCS*P 1 53 J 1P021NPPIA2XIXM1 J ■ |P57pP*5-P52-P« 1 ) *A 1 X I KM1 1* ( P*2* 

. PI 1 -P37-P3* 11/2.0 

PC45 • A 1 1 R I J . I ) * { D X 1 l( I )i|PI*»$*P|| iPOXlNF/mtPU, I ) 1 pXIY1P(J, I) 

. *(XIYIP( J, I ]*0XINF»S/XIXIP(J > I)p(AJ2(J) , |P»4*P*3-P*1-P5*1pAJ 1(J)* 
|P«*PP*5*P*4*P*3) J/2-Ol 

P C 4 7 • A 1 1 R I J , IMI ) * ( OX I I ( IMI J ■ ( P*7» S*P** ) *0X I NF/X I X I P [ J , IMI )) ♦ 

X I Y I P l J , IMI ) * ( X I Y I P ( J , I Ml )»OXINF*S/X[XIP(J, I Ml 1«(AJ2[J)*(P53 pP*2- 
. P**-P*7]pAJ1 (J)*(PS*pPI7*PC3*P521 1/2.0) 

PC4* ■ A 1 I R{ J , I M2 ) • ( OX I I ( ! M2 1 • ( P I •• SPPS7 ) POX I NP/ X I X I P ( J . IM2 } ) p 
. XIYIPIJ. I M2 ) ■ ( X I Y I P ( J , IM2 1*OX2NP*S/XIX!PlJ. IM2)*(AJ2{J)*(P*2 pP» 1- 
. PI7* Pll I pAJ I (J)*(P»7pP*i-P*2*PA1 ) 1/2.0) 

PCS2 > A1 1 K ( J , I ) * ( 0 X I I | 1 J* |P»3*Spp|4)*0XIMP/XIXIP[J, I I)pXIYIP(J.I) 

. * ( X 1 Y 1 P ( J , I )*0X1NP*S/XIXIP(J. 1 } p ( A J 2 ( J ) * I P5>*P5*-PI4*P53 1 ♦ A J 1 (Jj* 

( P54PP 13-PSI -P5* M /2 . O J 

PCS] * A1 1R( J , IMI 1 » ( ox 1 I ( IMI )•( P52*S*P53 l+OX IMP/X I XI P ( J , IMI ))P 
X l Y 1 P ( J . IMI ) * ( X 1 Y I P { J . IMt )»OXI HP *S/XIXIP(J, IM! )p{AJ2IJ)*(P«»pPS7- 
. P53-P82)pAJ1(J)»|P53+P52*P54-P57) 1/2.0) 

PC54 i A 1 1 R 1 J , I M2 ) * ( D X 1 I ( I M2 ) ■ ( P 5 1 *5 pP 52 1 POX I MP /X I X I P ( J . 1 M2 M ♦ 

X I Y I P ( J , I M2 1 * ( XIYIPIJ. IM2|*0XIMP*S/X1XIP(J. )M2)p(AJ2(J|*(P57pP«I< 
P • 2 * P • 1 ) *AJ 1 ( J | « |PI2*PS1*P57»Pi«) )/2 . 0) 

PC5I * X I Y I P ( J , I )*(DXIl(I)*(PI**5PPI9lPOXINP/XlXtP(«t. I ) ) ♦ X I Y I P ( J , I 
)*OXlNP*S/XIXIP (J, I 1 p(AJ2(J)*(P*4pP93*P59-P*5)pAJ1 (J)»(P**pP1»- 
. P * 4 - P 5 3 ) 1/2.0 

PCIJ I X I Y I P ( J . I Ml ) * I o X I I I I Ml 1 * { PI 7* s Pp*« ) POX I HP / X I X I P ( J , IM 1 ) ) P 
. XIYIP) J, IMI l*OXIHP*S/XIX IP(J, IMI )p(AJ21J)«{P93pP92-P*5*P*7)pAJ1 ( J 
) * { P**pP 17 - P*3 * P52 M /2 . O 

PC53 * X I Y I P | J , I M2 1 • I 0 X I I ( I M2 ) • I P « •* S *P * 7 1 *0X I NP / X I X 1 P | J . IM2 } ) ♦ 

. XIYIP(J > IM2)*0XINP*S/XIXIP|J.lM2)p(AJ2[J)*(P12pP*l-P*7-P»5)PAJ1(J 
)»(PI7PP5S*P*2*P51 ) 1/2.0 

P C I 7 * XIYIPIJ. I ) • ( DX I I | I)*|P53*5pP«4)pOXINP/X1XIP[J, I J [♦XIYIPIJ. I 

)*OXINP*S/XIXlPlJ.I)p|AJ2lJ)*fP«9PPI*-PI4-P53)pAJ1tJ)*(P54PP53- 
P 5 9 - P5* 1 1/2.0 

PCI* * XIYIPl J, JM1 }* |DXI I ( IMI 1 • ( P*2»5 pP 53 1 POX I MP/X I X I P 1 J . IMI ) )p 
XIYIPIJ, IMI )*0XINP*S/XIXIP{J. IMI }p(AJ2(J)*IP***P|7-P*3*P*2)pAJ1 (J 
} * ( PI3PP 52 - P5« - P57 1 J /2 . O 

PCS* « X I Y I P ( J . I M2 ) • ( OX I I ( IM2 ) • ( P* 1 »SPP 12 1 *0X I HP/X I X I P ( J , I M2 1 ) ♦ 

. XIYIPIJ. IM2 I*0XINP*S/XIX1P I J, IM2|p{AJ 2{J)*(P57*P#»-P«2-P«1 )+AJ1 (j 
1 ■ ( P 52PP 5 1 - P57 - P55 ] ) / 2 . 0 
C 

C R2KW, c I x 

C 

T O ■ [Cl* (PC17*PC«2PPC2*PC47PPC32**2)P1 1 * * C2 
T 1 ■ I C 1 ■ (PC1«*PC»3PPC3*PC41PPC33**2JP1 )**G2 
T2 » l G 1 ■ ( PC53 *PC§pPC 23*PC 54 + PC3*»*2 1 * 1 )**G2 
T3 * 1G1*IPC54*PC*PPC24»PCS*PPC3»**2)P1 l**C2 

R2KW* (SGI IMI ,J,KM1 1* I T 3 • $♦ T 2 ] *SC | I ,J,KM1 ) * {T2*SP( G1*(PC52*PC7pPC22 
»PC57pPC37**2)p1)*«C21pSCI IMI , J , X | ■ l T 1 • 5*TO ) *SC ( I . J , K ) • ( TO*S« | C 1 * 
(PC15*PC51 pPC1*PC4»pPC31**2} + 1 | «*C2 ) *T3 + T2*T 1 *T0 ] /* .0 
C 1 R » C I RC I J 1 
C 

C DER3 

C P3S 

IP | CKO t I l . J J . XX , I M2 , J , XM2 )) THEN 
PC3IP3I * - ( 1. 0/2. O* A 1 X ( XM1 JJ 

TO* | G1 * (PC54*PC*PPC24*PC5*pPC39**2 1*1 )*« (C2* 1 1 

R2KWP3 6 * [2*G1*C2*SG( IMI , J.XM1 )»PC3»«PC3*P3«*TO*S+2*C1*G2*PC3** 

. PC3*P35*TOl / 4 . o 
DAMP 3* * C I R* R2KWP 3** TA3 3M 
0 AN * DAMP3S 

C P 37 

CISEIP ( CNO ( 1 I . J J , KK . I Ml . J. KM2 ) J THEN 
PC3IP37 * • l 1 . 0/2 . O* A 1 K ( KM1 ) 1 

P C 3 • P3 7 * * (I . 0/2 . 0* A 1 X I KM1 )) 

TO » C 2 • 1 

T 1 * (Cl* I PC53*PC«pPC23*PC*5PPC3***2) + 1 ) • * TO 
T2*2«C1*G2*PC3**PC35P37*T1 

T3i(G1*(PC54*PC*pPC24-PC*»pPC3»**2)+1)**T0 

R2KWP37 « (SG{ IMI .J.XM1 )«|2*C1*C2*PC3»«PC3»P37*T3*S*T21p 2*G1*G2*SG( I 
. .J.XM1)*PC35*PC35P37*T1*$*2*Gt«G2*PC39*PC3»P37*T3*T2 1/4.0 

DAMP 3 7 ■ C I R* R2KWP37* TA33M 
DAN ■ 0ANP37 

C P 3 * 

ELSEIP ( CNDl I I . JJ.KK, I . J , XM2 ) J THEN 
PC37P3* * * | 1. 0/2 . 0*A 1 X I KM1 )} 

PC3AP3* ■ - ( 1 . 0/2. 0*A 1 X I XM1 1 ) 

T O • C 2 • 1 

T t » ( C 1 » ( PC*3 *PC»pPC23*PCI*pPC3A**2)p1 )**T0 

R2XWP3* * (S6( I , J , KMt)< ( 2«G 1 • C 2 ■ P C3 * • P C 3 5 P 3 * * T 1 • S * 2 * S 1 • G 2 • P C 37 • 

. PC37P3** ( G 1* | PC12*PC7PPC22»PC#7PPC37**2 1*1 l«»TO)*2*Ct*G2*SGIIM1 ,J 
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0 A N P 3 * * C I R*R2 KWP 3**TA33M 
DAN ■ DANP3* 

C P 3 • 

ELSilP I CND ( I I . JJ . XX . IP 1 . J. XM2 ) ) THEN 
PC37P3* * • ( 1 . 0/ 2 . 0* A 1 X ( XM1 J ) 

R 2 KWP 3* »G!<*G2»*GtI.J,KM1)«PC37«PC37P3»*lG1*(PCS2*PC7PPC22*PCI7* 

. PC37**2)*1 )•« l G 2 * 11/2.0 

DAMPS* «C I R*R2KWP3I *TA33M 
DAN * DANP39 
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ELSEIF { CN 0 { I I , J J , KK , I M2 , JM 1 , KH I ) ) THEN 

* C 2 4 * 5 8 « • { 1 . 0/2 . 0» AJ 1 1 J J ) 

* C 5 4 * 5 6 * -{ 1 . 0/2.0*AJ1 |J)*XIY1*(J, I M2 ) ) 

* C 6 9 * 5 6 « * ( 1 . 0/2 . 0« AJ 1 I J ) ) 

TO«*C54P5 6**C0i-*C24»*CS9*S6**C2 4PSi«*C69 

T 1 * { Cl* ( *C54»*C9-**C24»*C69*PC30**2}*1 ) * * ( C2 - 1 ) 

* 2 KWP 5 6 i(G1*C2*SC[IMI.J 1 KM1)*TO»T1»S+GI»G2»TO«T1)/4.0 
DAMP 5 6 * C I R* R2KW*56»TA33M 

DAN ■ 0 AN* 5 6 

ELSE I * (CND( II , J J , KK , I H l , JM 1 , KM I ) ) THEN 

* C 2 3 * 5 7 ■ - ( 1 , 0/2 . 0»AJ 1 ( J ) ) 

* C 2 4 * 5 7 • - ( 1 . 0/2 . 0« A J 1 I J ) ) 

* C 5 3 * 5 7 » *( 1 .0/2.0-AJ1 | J)*X1YI*( J. IM1 )) 

* C 5 4 * 5 7 • - ( 1 . 0/2 . 0» AJ 1 | J ) *>U Y I* t J , 1 M2 ] ) 

* C 6 8 * 5 7 i - ( 1 . 0/2 . 0-AJ 1( J ) ) 

* C 8 9 * 5 7 • * l 1 . 0/2 . 0« AJ 1 | J )) 

TO**C53*57**C8+*C23 , *C66*57+*C23*57«*C88 
T 1 * G2 * 1 

T2*(G1*1*C53»PC8«-PC23**C88**C34**2}-M)»*T1 

T3*G1*G2*TO»T2 

T4i*C54PS7»*C9**C24»PC69P57^PC24*57«*C69 

TS»(G1»(*C54»PC9-*PC24*PC69+*C39«»2)41)*«T! 

R 2 KW* 5 7 i (SGf [Ml , J , KM 1 )»|G1*G2*T4»TS»S*T3)*C1*G2»SC( J . J , KM1 ) * TO* T2* 
S*C1*C2*T4«TS+T3)/4.0 
DA N* 6 7 * C I R* R2 KW* 57 " TA3 3M 
DAN t 0ANP57 

ELSE!* |CN0| I I , JJ.KK. I . JM1 . KH1 ) 1 THEN 

* C 2 2 * 5 6 « * ( 1 . 0/2 . 0» AJ 1 ( J ) ) 

* C 2 3 * 5 6 • • ( 1 . 0/2 . O* AJ 1 ( J )) 

PC52P58 • * ( 1 . 0/2 . O* A J 1 ( J } • X I Y l * ( J , I H 

* C 5 3 * 5 8 « * ( 1 . 0/2 . 0» A J 1 ( J ) ■ X I V I * { J , 1 M 1 )) 

* C 6 7 * 5 8 i - f 1 . 0/2 . 0» AJ 1 ( J ) J 

* C 8 8 * 5 6 * - t 1 . 0/2 . O. AJ 1 ( J ) ) 

TO«*C53*66»*C6+*C23»PC88*58+*C23*56**C64 

T 1 * G 2 * 1 

T2*IG1*(*CS3**C6**C23**C66**C30«»2)*1|«»T1 

R2KWPS6* (SCI I 1 J > KM1)*(C1«C2»TO , T2»S*Ct»C2-(*CS2*64»*C?**C22» 
*C67PS6-»*C22PS8»PC67)»1C1» |*C52«*C7-*PC22*PC67*PC37**21-*1 J * * T 1 J ♦ C 1 

* G 2 * 5 G ( IM1 , J , KM1 J*T0*T2-*-C1*C2*T0*T2)/4 .0 
0 A N * 5 8 * C I R»R2KW*56* TA33M 

DAN * 0ANP54 

ELSE!* ( CNO | I 1 . J J . KK . I P 1 . JM 1 . KM 1 ) J THEN 
* C 2 2 * 5 9 * - ( 1. 0/2 . 0« A J 1 ( J ) ) 

* C 5 2 * 5 9 * * ( 1 . 0/ 2 . O* A J 1 { J ) • X I Y I * ( J . I J 1 

* C 6 7 * 5 9 * * ( 1 . 0/2 . 0* A J 1 ( J J ) 

R2KWP59 »G 1 *C2*SG [ ], J,KMI ) * |PC52PS9«PC7**C22»*C67PS9**C22P50*PC67]« 
(Cl- (*CS2«PC74-PC22«PC67>PC37»*2)>1 )•« (C2 - 1 )/4 .0 
DAN*59*CIR • R2 KW* i i • TA3 3M 
DAN i 0 A N * I 9 

ELSEIF t CNO ( I 1 , JJ , KK , IM2 , J , KM1 J ) THEN 

* C 9 * 6 1 • OXt 1 ( IM2 I •< 

PC24P61 * ( * A J2 1 J ) ♦A J 1 | J ) |/2 .O 

PC33P61 * * l 1 . 0/2 . 0*A 1 K ( K J J 

PC39P81 i ( * A2K [ KM1 | ♦ A 1 K [ KM 1 ) J / 2 . O 

PCS4P61 * DXII ( I M2 ) * A 1 1R|J, I M2 ) * 5 4 ( *AJ2I J ) ♦ A J 1 ( J J )*XIYIF(J, IM2 J / 

2 . O 

PCB9P61 • DXI 1 ( IM2)*XIYIP( J. IM2J-SM -AJ2( J)*AJ1 ( Jll/2 .O 
TO* G2 - 1 

T1 * (Cl* (*C16**C63 p*C3»*C664*C33*»2)41 ) * ■ TO 
T2* ( C 1 * (*C5***C9 + *C24»PC69+PC30"-2 I ♦ 1 ) * * T O 

T3**C54*PC9P6 1**C64*61 ■*C9+*C24»PC69*61+PC24P6 1*PC89*2*FC39* 

*C3 9 * 6 1 

R 2 KW* 8 1 * |C1*G2*SG( !M1 . J , KM 1 )*T2»T3*S+2*C1*G2*SC| IM1 .J.KI-PC33* 
FC33*61*T1*S+G 1 *G2 , T2*T3 , *2*C1 «C2"PC33»PC33*6 1 * T 1 )/4 .O 
DAN* 6 1 » C I R* R2KW* 6 1 • T A 3 3 M 
DAN > 0 A N * * 1 

ELSE!* ( CND I J I , J J , KK , l Ml , J , KM1 ) ) THEN 

* C 8 * t 2 * DX I I ( [Ml ) *5 

* C 9 * 6 2 * DXIH IM2] 

* C 2 3 * 6 2 * ( •AJ2(J)*AJ1 (J) 1/2.0 

* C 2 4 * 8 2 * ( *AJ2(J)»AJ1 (J) J/2.0 

* C 3 2 * 6 2 * * I 1 . 0/2 . O* A 1 K ( K | ] 

* C33 * 62 * • ( 1 . 0/2 . 0*61 K( K } | 

* C 3 8 * 6 2 * ( - A 2 K ( KM 1 ) ♦ A 1 K ( KM 1 ) 1/2.0 

PC39P62 * ( *A2K| KM1 ) ♦ A 1 K ( KM 1 ) 1/2 . O 

* C 5 3 * 6 2 * DXII 1 IM1 )«A1 1R(J. IM1 )•*♦(* AJ2(J)*AJ1 (J) ) ■ X I Y I * ( J , IM1 ) / 

2 . O 

* C 5 4 * 6 2 * ( -» A J 2 ( J ) ♦ A J 1 ( J ) | * X I Y J F l J , I M2 J/2.0+DXI I ( I M2 1 *4 1 1 R I J, I M2 J 

* C 6 6 P 6 2 * DXII | IM1 ) * X I Y I P ( J , [Ml )*S+-[*AJ2(J)*AJt[J) 1/2.0 

PC89P62 * DX I I [ I M2 J * X I Y I P ( J . [M2 } ♦ ( - A J2 ( J ) + A J 1 ( J ) ) /2 , O 

TO * C2 - 1 

T 1 • ( G 1 • (FC17**C62*FC2*PC47«-PC32**2)*1 )**T0 
T2* 2 * C 1 *G2*PC32*PC32P62*T t 

T3» ( C 1 * ( PCI 6*PC83*PC3"PC48**C33-»2)*1 ) * * TO 
T 4 » (G1*{PC53**C8**C23*PC66*PC34**2)+1 ]"TO 

T5»*C53»PC8P62+PC53*82*PC6^*C23»*C66P62**C23*62«*C66^2«PC38« 

PC36PC2 

T 6 * G 1 • G2* T4*T5 

T 7 » (Cl* |PC54»*C9+*C24«PC69 + *C39*-2) + 1 )»»T0 

T6»PC54-PC9P82*PC54P62*PC9^*C24»PC69P62*PC24P62*PC69*2«*C39* 

P C 3 9 * 6 2 

R2KW* 6 2 * ( S G [ IM1 ,J. KM 1 )*(G1*G2*T7*T4«S*T6)+SGI 1M1 , J , K ) • 12*G1*G2* 
*C33*PC33*62*T3*S+T2)+G1*G2*SG( I , J , KM1 |*T4*T5*S^2»C1*G2«5G( I , J . K ) 
•*C32»*C32P62*T 1 * $ ♦ G 1 *G2*T7*T 4 ♦ T 6 * 2 * C 1 *G2«PC33**C33*t2*T3+T2 ) /4 . 0 
DANP 6 2 * C I R ■ R 2 KWP 4 2* T A 3 3 M 
0 AN * DAN * 6 2 

ELSEIF | CND ( 1 [ , JJ, KK, 1 , J , KM1 ] ) THEN 
PC7P63 * D X X I ( I } * S 

* C 6 P 6 3 * D X I I ( I M 1 ) 

P C 2 2 * 6 3 * ( -AJ2(Jj+AJ1 (J| J/2.0 

* C 2 3 * 6 3 * ( - AJ2 ( J J +A J 1 ( J 1) /2 . 0 

PC31P63 * * ( 1 . 0/2 . O- A 1 K I K ) ) 

PC32P63 * - ( 1 • 0/2 . 0*A 1 K ( K )) 

* C 3 7 * 8 3 * l “ A 2 K ( KM 1 ) ♦ A 1 K ( KM 1 | 1/2.0 

PC38P63 * ( - A2K ( KM 1 ) ♦ A 1 K { KM1 ) ] /2 . 0 

PC52P63 • DXI t ( I ) * A 1 1 R ( J , 1 ) * S * ( -AJ2(JJ+AJ1 ( J ] ) • X I Y J P ( J , I J/2.0 

PCS3P63 * (*AJ2(J)+AJ1(J| ) * X I Y I * ( J . IM1 )/2.O*0XII( IM1 ) » A 1 1 R ( J , IM1 ) 

* C 6 7 * 8 3 « DX I I ( I J ■ XI Y 1 * | J . I ) *$*( -AJ2 ( J ) *AJ 1 ( J ) J /2 . O 

* C 6 6 * 6 3 * DXI I ( IM1 l*XIYI*( J. tMI )♦( -AJ21 JJ4AJ1 ( Jl J/2.0 

TO ■ C2 - 1 

T 1 * ( G 1 * ( *Cn**CI2*PC2**C47**C32**2J*1 )**T 0 
T2 » l G1 • ( *CS3*PC8*PC23**C84«-*C36**2 )♦ 1 ) *»TO 

T3*PC33*PC6*«3+PC53*63»PC8-*C23**C48*834*C23*63**C88*2**C38- 

* C 3 6 * 4 3 

R 2 KWP 6 3* (SCI I , J , KM I J*(G1*G2*T2*T3»S*G1*G2* (G1*(*C52**C7**C22**C67+ 

* C 3 7 ■ • 2 ) ♦ 1 ) - * TO* I *C52*PC7*634*C52*63- PC7**C22*PC67Pt3*PC22*43* 
*Ci7+2«*C37**C37*t3 I |4-SG( I . J . K I • ( 2 * C 1 • C 2 - * C3 2 * * C 3 2 * 1 3 • T t * S ♦ 2 * G 1 • 

G 2 * * C3 l**C31*63» ( G1* (PCI E**C61+*C1**C4B+*C3 1 ■ * 2 ) ♦ t )**TO|*C 1 • G 2 * S C 
( I M 1 .J.KMt )*T2*T3*G1*G2*T2*T3+2*G1*G2*SC( (Ml ,J,K)»*C32*PC32*63*T1 
♦2*C1*G2**C32**C32*63»T1 J/4.0 
DAN* 63 »C I R * R 2 KW* 43*TA33M 
DAN * D AN * 6 3 

ELSEIF (CNO( I I ,JJ,KK, 1*1 ,J, KM1 ) J THEN 
*C7* 64 . OXIIin 

c-u 




31(4 . 
3**5 . 
3*1* . 
3117 . 

a*«* . 
3in . 
3*70 
3*7 I . 
3*72 . 
3*73 . 
3*7* 
3*7* . 
3*7* . 
3*77 . 
3*7 t . 
3*7* . 
3**0 . 
3**1. 
3 9*2. 
39*3 . 
39 14 . 
39** . 
3S* * . 
3**7 . 
3*** . 
3**9 . 
3*90 . 
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39*3. 
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3**5 . 
3*9 « 
3**7 . 
35*5 
3**9 . 
3 900 . 
3 901. 
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3903 . 

3904 . 
3909 . 
3101 . 
3 907 . 
3 909. 
3 90* 
3*10 
3(11. 
3(12. 
3 9 13. 
3814. 
3919. 
311*. 
3*17. 
3 « 1 * . 
3*1* 
3920 . 

382 1. 

3822 . 

3823 . 
3124 . 

382* . 
3129 . 
3*27 . 
3829 . 

3 829 . 
3*30. 

3 831. 

3 932. 

3 133. 

3 934 . 
383* 

383 * . 
3937 . 

3838 . 

3839 . 

3840 . 
314 1. 

3 142. 
3143 . 
3844 . 

3 84*. 

3841 . 
3847 . 

3 848. 

3 84*. 

3 8*0. 
385 1. 
38*2 . 
38*3 . 
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38* * . 
38*7 
39*4 . 
38*1 . 
38 10. 
38*1. 
38 12. 
3913 . 
3894 . 
318*. 
3889 . 

3 19 7. 
3981 . 
3881 . 

3 870. 

3871 . 

3872 . 

3873 . 

3874 . 
387* . 

387 * . 
3877 . 
3*74 
387* . 
3*80. 
389 1. 
38*2 . 
31*3 . 
3184 . 
3S8S 
3888 . 

3887 . 

3888 . 
3888 . 
38*0 . 

388 1 
3892 
38*3 
3884 . 
381* 


( * A J 2 [ J ) +AJ 1 ( J ) 1/2.0 
* { 1 . 0/2 . 0> A 1 K ( K | > 

( - A2K I KM ! I^AUUMI | )/2.0 

( - AJ2I J)+AJ1(J| )»XiriP| J, I)/2.0*DXII [I J*AHA( J.I ) 
OXIIl I liXIYIMJ, I »♦ ( -AJ2 ( J I *A J1 ( J ) ) /2 . 0 


PC22P *4 
FC31M4 
PC37P84 
PCS2P84 
PC 87P84 
TOiC2 - I 

R2KWP84 • ( G 1 * G2*SG I I . J , K M 1 )• | C 1 » ( PC52«FC7+PC22 • AC(74»C37 « * 2 ] ♦ 1 )»*T0 
. • !PCS2'PC7P»4tPCS2PI4«PC7+PC22«PCI7P*4+PC22PI4.PCI742*PC37» 

. RC37P|4)+2 a C1>C2*SC( 1 , J , K ) *PC3 1*PC3 IP84* | C1»(PC1(»PC*I+PCI , PC48* 

. PC3 1 a»2 ) ♦ 1 ) * * T O } / 4 , o 
0ANP14>CI*> R 2 KWP f **TA33M 
DAN i 0 A N P 8 4 


ELSEIF | CND £ I I , J J , KK , IH2.JR1.KM1 )) THEN 
PC24PII * A J 2 I J) /2 .0 

PCS4PII * AJ2(J)«KIYIP(J, 1M21/2 .0 
PCISPtl • A J 2 | J ) / 2 . O 

TOiPCS4PI(>PCI>PC24>PCIiP*(*PC24P(l>PCII 

T 1 1 I C 1 * (PCS**PC9*PC24»PCM^PC3J**2)»1 ) * » ( G 2 * 1 ) 

R 2 KWP I I i ( G 1 ■ G 2 ■ S G ( I Ml , J, KM1 ) » TO* T 1 « S *C 1 « G2 * TO* T 1 ) / 4 
OANPIIiCIN • R2KWP *i«TA33M 


dan 


DANPK 


ELSEIF ( C N D | I I , J J , XR , I Ml ,JP1 ,KM1 ) ) THEN 
PC23P IT * A J 2 ( J ) / 2 . O 
PC24P87 * AJ2 ( J ) / 2 . O 

PCS3P87 « AJ2(J)«NI»l*(J.IM1)/2.0 
PCS4PI7 * AJ2[J)*X!YIP[J, IM2 ) /2 . 0 
P C I * P 8 7 « AJ2I Jl/2.0 

PC MP*7 « AJ2 ( J 3 / 2 . O 

TO*PC*3P*7»PC**PC23»PC**P«7+PC23P*7»PC** 

T 1 * G2 - 1 

T 2 * {G1»(PC*3*PC»*PC23-PC*a-*-PC3«*»2)-*'1 J**T 1 
T3*C1*C2* TO* T 2 

T4*PCS4P«7*PCI*PC24*PC*9PB7*PC24P|7«PCS» 

7J*|C1* |PCJ4*PCI*PC2**PCn*PC3l»*2)4l |««T1 

R 2 KWP *7 * ( SG [ IMt ,J, K M 1 J*(G1*G2 a T4«T*»5*T3)^G1«C2*5C( I , J, KH1 )«T0*T2" 
. * + G 1 *C2«T4« T**T3 ) /4 . 0 

0ANP«7*CIR* R2KWP *7 * T A33H 
0 A N * DANPI7 

ELSE IP I CNO I I I . J J . KK , 1 , JP 1 , KM1 J J THEN 

PC22P S* * AJ2[ JJ/2.0 

PC23P S* * A J 2 | J ) / 2 . O 

P C 5 2 P * * * AJ2|J)*XIYIP(J, 1 J/2 .0 

PCS3P** ■ A J2 | J ) ■ X ! Y 1 P { J , 1 Ml ) /2 . O 

PCI7PII * AJ2I Jl/2.0 

PCBIPSI • A J 2 ( J ) /2 .O 

T0«PCS3PH»PC**PC23*PCIIPI( + PC23PII*PCII 

T 1 * G2 - 1 

T2* { G1 • { PCS3*PCl4PC23«PC9**PC38*»2 J ♦ I I »»T 1 

R2KWPS* > [SG( I , J , KM 1 ) a ( C 1 *C2*TO*T2*S*G 1 » G 2 • ( PCS2PC**PC7 + PC22 B 
. PC*7PS*+PC22P8I»PC67 )»|G1 a JPC*2»PC7*PC22»PCI7*PC37*»2) + 1 )**T1 )«G1 
* C 2 ■ S G ( I M 1 . J.KM1 )«TO»T2*Gl»G2*TO«T2l/4 .0 
DANPK i C I N« R 2 KWP SOTA33H 
DAN * DANPSS 

ELSEIF I CND ( I I , J J , KK , IP 1 . JP 1 . KM1 J J THEN 

PC22PS9 > A J 2 ( J ) / 2 . O 

PCS2P89 * AJ2(J)*XZYIP[J I I ) / 2 . 0 

PCB7P B9 * A J 2 l J ) / 2 . O 

R2KWPS9 *C 1 *G2*SG ( !,J,KM1)MPC*2Pi**PC7*PC22«PC*7P**«-PC22Pi»»PC87M 
( G 1 * ( PCS2*PC7*PC22*PC8? + PC37**2) + 1 )-«{G2-1 1/4.0 
DANPIHCIN * R 2 KWP l»*TA33M 
DAN ■ DAMPS* 

ELSEIP ( CNO ( t 1 , J J , KK . I M2 . JM 1 , K ) | THEN 
PC 1 «P* I * * ( 1 . 0/2 . 0« AJ 1 | J | ) 

P C 4 * P * 1 * * ( 1 . 0/2 0* AJ 1 ( J j • X ! Y I P ( J , IM2 ) J 
PCB3PI1 * • ( 1 . 0/20* AJ 1 ( J j ) 

TO* 1G1*[PC11*PCI3*PC3*PC44*PC33*»2)*I ) ■ * ( 02 ’ 1 J 

T1»PC1l*PCI3PI|tPCIIP»1*PC83»PC3«PC4JP(1 

R 2 KWP »1«|C1*G2*SC( IMI , J,K)«TO*T1»S + GI*C2*TO*T1 )/4 ,0 

DAMP* 1 * C I X* R 2 KWP * 1 ■ T A 3 3 M 

DAN * DANPS 1 


ELSEIF I CMC { 1 I . J J , KK . I M 1 , JM1 , K 3 5 THEN 


(1.0/2 O * A J 1 ( J | ) 

( 1 . 0/2 . O • A J 1 ( J ] ) 

( 1 .0/2 ,0*AJ((J)*XIYIP(j, IM1 ) ) 
( t .0/2 . 0*AJt (J) * X 1 YIP ( * 

( 1 . 0/2 . 0* A J 1 ( J | ) 

( 1 . 0/2 . 0« AJ1 | J U 


, IM2 ) ) 


PC 1 7P*2 
PC 1 *PI2 
P C 4 7 P * 2 
PC48P82 
PC62PS2 
PC83PS2 
TO * G2 - 1 

T1*(G1*IPC17*PCI2»PC2*PC474PC32* 

T2*PCn*PC*2P(2 + PCt7PI2iPC*2*PC2*PC47PI2 
T3 * C 1 ■G2» T 1 ■ T2 

T4i(G1*(PC1»*PC«3tPC3*PC4»*PC33**2h1 )*>T0 
TS*PCII*PCI3P8I*PC14P(2*PCI3*PC3aPC4IPI2 

A 2 KWP *2 * ($C( IMt , J, K } ■ (C1*C2*T4«T**5+T3 | ♦ E 1 • C 2 * S C ( [ , J, Kj*T 1 a T 2 * S + C 1 
* G 2 * T 4 ■ T5*T3)/4.0 
DANPB2 * C I R * R 2 KWP * 2 * TA33M 
DAN * 0ANP82 


* ) ♦ t |« 


> TO 


ELSEIF ( CND ( I I . JJ , KK . I , JM1 , K ) ) THEN 
PC 1 * P * 3 * •(1.O/2.0*AJI[J]| 

* ( 7 . 0/ 2 . O* AJ1 ( J ) J 
-{ 1 .0/2 . 0*AJ J (J)*XIYIP( J, I J ) 

* < 1 .0/2 . O • A J t ( J)»XIYIP( J, I M 1 I ) 

* ( 1 . 0/ 2 . 0* A J 1 ( J ) ) 

- ( 1 . 0/2 . 0» A J1 C J ) ) 


PC 1 7P«3 

PC 4 BP * 3 
PC47P43 
PC* 1 P83 
PCB2P83 
TO * C2 * 1 

T1.|G1*(PC17*PCI2*PC2*PC47*PC32**2) + t )*«T0 
T2*PC1 7*PC(2PI3*PC 17PI3*PC82*PC2*PC47P(3 

R 2 KWP *3 i (SG( I , J, K)* ( G 1 » G 2 ■ T t*T2»S*G1»C2* ( C 1 * (PC1l*PC91*PCt«PC4|* 

. PC 3 1 ■ *2 J ♦ 1 ) • * T O ■ [ PCI (*PCI1P(3*PC1 8P(3*PCI1*PC1*PC4»PI3 ) )*C1»C2»SG 
( IM1 ,J, K)*Tl*T2*G1*G2*T1*T2)/40 
DAMP* 3 * C I R * R 2 KWP *3«TA33M 
DAN * DANPSS 


ELSEIF ( CND { I I , J J , KK . I P 1 , JM1 , K } ) THEN 
PC 1 * P * 4 * - ( 1 . 0/2 . 0«AJ 1 ( J > ) 

PC4SPB4 i - ( 1.0/2 . OaAJI ( J] axlYIP( J, I )) 

PC81P84 * - ( 1 .0/2 . OaAJ1( Jl) 

R 2 KWP *4 « G 1 • G 2« SC ( I,J,K)a|G1»(PC1*aPCII>PC1»PC48*PC3!»*2) + 1 }»*(G2* 

} a ( pc 1 «»PC* 1 P8**PC1 IPI4.PCI 14PC1«PC«»PI* J /4 . O 
DAMP *4 a C 1 N*R2KWP*4» TA3 3M 
DAM * DANPK 


ELSEIF ( CNO ( I 1 , JJ , KK , IM2 . J , K ) ) THEM 
P C 3 P • 8 > DX I I ( IM2 J *S 

PCI8P8B » ( -AJ2(J)+AJ1 (J] 3/2.0 

( • A2 K ( K )+AlK(X] ]/2.0 
A 2 K ( KM 1 )/2.0 

OK I I ( 1M2 ) a A1 1 R ( J . IM2) *S*> | - AJ2 ( J J ♦AJ 1 ( J ) ) a»I YIP l J . IM2 I / 


PC33P88 
PC39PS9 
PC49P88 

. 2.0 

PCB3P8S 

TO * C 2 * 1 

T 1 * ( G 1 • ( PC 1I*PC(3 + PC3*PC4I+PC33»*2 1*1 ) * * TO 

T2»PC 1 8«PC83P8I»PC 1 • P 8 8 • PC • 3 + PC3 »PC 4 8 P I • « P C3P I S • P C 4 8 * 2 • PC 3 3 
. PC33PB8 

T3 * ( C 1 ■ ( PC*4» PC»*PC2* *PC 8»*PC39»*2 3 ♦ 1 I ‘-TO 


DXI I ( IM2)*XIYIP(J t I M2 ) * 5 ♦ ( * AJ2 ( J ) *A J 1 ( J 3 1/2.0 
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3*9 6. 
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370 1 . 
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3707 . 
3704 . 
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374 1. 
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375 1. 

3752 . 

3753 . 
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3750 . 

376 1. 
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3763 . 
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3773 . 
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377 6 . 
3777 . 
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3779 . 
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378 1 . 
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3763 . 
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3765 . 

3766 . 
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3789 . 
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379 1 . 

3792 . 

3793 . 

3794 . 
379 5. 
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3797 . 

3798 . 
378 6. 
3800 . 
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3802 . 

3803 . 
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3805 . 

3606 . 

3607 . 

3608 . 
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3610. 

3611. 
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3615. 

3616. 
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382 1. 
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3825 . 
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3827 . 


{ *AJ2(J)+AJ1 (Jl ) «X I Y IP ( J , IMS J /2 . 04 DX I I [ IM2 I • A 1 U(J, 1M2) 
DXI I { 1 M 1 | »X I Y I P ( J . IM1 1 * S •» ( * A J 2 ( J t ♦ A J I (J] 1/2 .0 

D X I I { 1 M2 ) * X 1 Y I P ( J , IM2 5 ♦ ( * A J 2 ( J ) ♦ AJ 1 (J) 1/2.0 


R2KWP8 4 * ( 2 * C 1 * G 2 » S G ( IM1 , J , KM1 )*PC3i»PC39P66«T3*S*C1*G2«SG( IM1 , J.Kl 
. *T1 «T2"S42»C » »G2*PC39*PC3SP*8*T3*C t * C 2 * T 1 • T 2 1/4 .0 

DAMP 1 1 > C I 6*62 KWP 66>TA33M 
DAN • DAN P 6 4 

ELSE I P ( C NO ( I I , J J , KK , IM1 , J,X) ) THEN 
PC2PS7 * DXI I [ IM1 ) * S 
PC3P87 « 0X1 I I I M2 I 

PC17P47 » | *AJ2[J)*AJ1(Jl )/2.0 

PC14P47 • |*AJI(Jt*AJl(J|)/20 

PC32P47 i | - A2K ( R) +A 1K( K | 1/2.0 
PC33P47 • l - A3K ( K > 1 K I K ) I /2 . O 

PC36P67 » A2K 1 KM1 ) /2 . 0 

PC3IPI7 * A 2 K [ KM 1 )/2.0 

PC47PI7 • DX I t | I Ml ) * A 1 1 6 ( J . J Ml ) *S-* ( * A J2 ( J 1 * A J 1 | J ) ) • X I Y 1 P ( J . I M 1) / 

. 2.0 

PC44P47 
PC 42P 47 
PC43P47 
TO » C2 - 1 

T I ■ (Cl* (PCI7*PC42*PC2*PC47-*PC32**2 1 ♦ 1 )»*T0 

T2*PC17*PC42P87pPC17P47»PC»2*>PC2*PC47P«7*PC2P47*PC47+2*PC32» 

PC32P47 

T3 • G 1 *G2*T 1 *T2 

T 4 * l C 1 * [ PC I8*PCS3* , PC3*PC4*-*PC33**2 ) * 1 1**70 

T5*PC14*PC43P47pPC16P47*PC43PPC3*PC44P47PPC3P47*PC44+2»PC33* 

. PC33P47 

T4» [C1*(PC53*PC4PPC23*PC44*PC34**2J+1 ) • • TO 
T7 i2“C 1 *C2*PC34*PC34P47»Ti 

T 6 ■ |C1*(PC54*PC»pPC24*PCi»^PC3»**2 1 ♦ 1 ) • • TO 

6 2KWP*7 * (SCI IM 1 , J.KM1 )it2*CI»C2»PC3*«PC3»Pn«T*»S + T7l*SC|]M1 , J,K)» 
( C I *C2*T4*T5 *5 ♦ T 3 1 ♦ 2 * G 1 * G 2 • S G ( I ,J,KM1 JpPC 38*PC38P87»T5»S*C1*C2*SC 
(I 1 J,Kj«T1*T2*S*2*C1»C2*PC3**PC3»P47*T6'*-T7PC1*C2*T4*T5PT3}/4.0 
DAMP 17 *C 1 6*62KWP87*TA33M 
DAN t DANPS7 

ELS E I F ( CND ( t I , J J , KK , 1 , J , K ) ] THEN 
PC1PII i D X I l ( ] ) ■ S 

PC2P44 i D X I I ( I M 1 ) 

PC16P44 • ( - A J2 ( J ) ♦ A J 1 l J ) ) /2 . O 

( ■ A J 2 ( J 1 ♦ A J KJD/2.0 
I - A2K(Kl*A1K[K) J/2 . O 
( -A2K( K ) ♦ A 1 K ( K ) 1/2.0 
A2K1KM1 )/2.0 
X2 K ( KM1 )/2.0 

D X t I ( I 1 * A 1 1 R ( J , I |»l*( * AJ2 ( J I ♦ AJ 1 { J 1 )*XIYIP(J t t )/2 .O 

( - A J 2 ( J 1 •* A J 1 (J) ) » X I Y I P | J , I M 1 ) / 2 .0*0X1 I ( I Ml )*A1 16 I J , IMl ) 

OXII( I > » X I Y I P { J . I 1 ( • AJ2 ( J ) *AJ1 (J) 1/2.0 
D X I I ( IMl )«XIVIP( J, IMl (*|*AJ2( J)*AJ1 ( J) 1/2.0 


PC 1 7P4I 
P C 3 1 P 6 a 
PC32P64 
PC37P44 
PC36P68 
PC46P68 
P C 4 7 P 4 8 
P C 6 1 P 6 6 
PC62P86 
TO * C2 - 1 

T 1 * (Cl * ( PCt7*PC62*PC2*PC47*PC32**2 1 ♦ 1 1 1 • TO 

T2»PC17«PC62P88*PC17P64*PC62*PC2*PC47P68*PC2P84»PC47P2*PC32* 

PC32P44 

T3* (Cl* ( PC53*PC4+PC23*PC68PPC36**2 1 ♦ 1 1 » » TO 

6 2 KWP* • >(SC| I , J , KM1 )*(2»C1»C2pPC34*PC36P48*T3*$*2*CI*C2*PC37* 
PC37P84* IC1»(PC52*PC7*-PC22»PC67*«PC37**2}*1 ) * * TO ) ♦* G ( I ,J,K)»(C1«G2 
•T1«T2*S+CI*C2« |C1»(PC1I*PCI1*PC1»PC4I*PC31»»2)*1 >«*T0*(PC16* 

PCI 1 P88*PC t 6P48*PC6 I *PC 1 *PC4|P4I*PC 1 P61*PC4*42*PC3 1 * P C 3 1P68 ) ) + 2 » 

C 1 * 6 2 * S G ( IMl , J , KM1 )*PC34*PC38P64*T3*2*G1*C2*PC38*PC38P84*T3PCt*C2 
*SC( (Ml . J,K|*TT*T7*>G1*G2*T1*T2)/4 .O 
DAMP It i C I 6* 6 2 KWP 68* TA33M 
0 A N * 0ANP68 

ELSEIP l CNO [ 1 I , JJ , KK , I P 1 , J . K ) ) THEN 
PC 1 P48 * 0X11(1] 

PC 1 I P I 9 » ( ■ AJ2 I J 1 *AJ 1 (J) 1/2.0 

PC31P69 » (-A2K|K)*A1K|Kl 1/2.0 

PC37P89 t A2K ( KM I 1/2.0 

PC46P69 * ( -AJ21 J)*AJ1 ( J) |*X1 Y IPI J. I 1/2 O + 0X I I [ I )-A1 1R( J, I ) 

PCIIP6I * OX 1 I ( I 1 • X I Y I P ( J , I } ♦ { - A J2 ( J 1 ♦ A J 1 ( J 1 1 / 2 . 0 
TO* C2 - 1 

6 2 KWP 6 9 • [2*G1*G2*SG( I , J.KM1 )*PC37*PC37P89« (Ct* ( PC52«PC7*PC22«PC*74 
PC37«»21*1 | * » T0*6 1 » G2*5C I I . J . K ) • ( C 1 • ( PC I »« PC S 1 +PC l * PC4 |*PC3 1 **2 ) ♦ 
11**T0 1 (PCll*PCIlP6l*PCUP19*PCI1*PC1*PC4IPU*PC1PI»iFC4l*2*PC31* 
. PC31P69 1 1/4 .0 

DANPtl ' C 1 6*62 KWP 8 9 • T A 3 3 M 
DAN * OANPl* 

ELSEIP [ CND I I I . J J , KK , IM2 , JP 1 , K ) ) THEN 
PC14PI1 * A J 2 ( J ) / 2 . 0 

PC46P91 * AJ2(J)*XIYIP(J, I M2 1/2.0 

PC 63PS 1 * A J 2 ( J ) /2 . 0 

TO* (Cl* |PC1I*PCI3*PC3»PC«I*PC33»*21*1 )**(C2- 1 1 
T 1 *PC1I*PCI3P9 1 *PC 16P91*PC43*PC3*PC48P9 1 
6 2 KWP 91 * ( C 1 * C2 * SC I IMl , J , K] *TO*T1*S*C1*C2*TO*T1 1/4 .O 
OANPl 1*C1R* 6 2 KWP 9 1 • T A 3 3 M 
DAN * DANP91 


ELSETP [ CND ( I I , JJ , KK , IMl , JP 1 , K 1 ) THEN 
PC 1 7P92 * A J 2 l J 1 / 2 . O 

A J 2 ( J ) / 2 . O 

A J 2 ( J 1 * X I Y I P ( J , IMl 1/2.0 
AJ2(J)*XIYIP(J, I M2 1/2.0 
AJ2 ( J J / 2 . O 
A J 2 [ J 1 / 2 . O 


PC 1 6P92 
PC47P* 2 
PC46P92 
PC 62P12 
P C 83P9 2 
TO * C2 - 1 

T I * ( G 1 * I PCI1*PC62*PC2*PC47*PC32»*2) ♦ 1 ) ■ * To 
T2 » PC 1 7*PC82P12'*PC 1 7P92*PC62*PC2*PC47P92 
T3*G1*G2*T1*T2 

T4»IG1*(PC18*PC63*-PC3*PC4**-PC33**2)*1)*«T0 

T5*PC1**PCS3P92*PC18P*2*PC83*-PC3*PC«6P12 

6 2 KWP 9 2 t ( S G ( IMl , J , K ) * ( C t » C 2» T4« TS *S * T3 1 ♦ C 1 * C2*SC I 1 t J , X ) > T!«T2*S*6 1 
* C 2 * T 4 * T 5 ♦ T 3 1/4.0 
DANP I 2 ■ C I 6* 62 KWP 9 2 * T A 3 3 M 
DAN « OANPl 2 


ELSEIP ( CND ( I I , JJ . KK. I . JP 1 . Kl ) THEN 
PC 1 4 P 9 3 * A J 2 ( J ) / 2 . O 

A J 2 ( J ) / 2 . O 

A J 2 [ J 1 • X I Y I P ( J . I ) /2 . O 
A J 2 ( J I * X I Y I P ( J , IMl J/2.0 
A J 2 ( J ) / 2 0 

A J 2 ( J ) / 2 . 0 


PC 1 7P9 3 

PC46P93 
PC47P93 
PC* 1 PS3 
PC *2P* 3 

TO « C2 - 1 

T 1 » | G 1 » ( PC 17*PCI2 + PC2*PC47'*PC32**2 1*1 J**TO 
T2iPC17*FCI2PE3*PCnP13*FC«2*PC2»FC47P»3 

6 2 KWP t 3 t(SC[ I , J,K) *(CI*C2»TI«T2«S*C I tCJ* ( Cl* 1PC1»*PCII*PC1*PC4»* 

. PCS I ** 2 1 * 1 )**T0* ( PC t I* PC I 1PI3*PC1«PI3*PC«1*PC t*PC48P63 1 )+G1*C2*SC 
( IMl .J.K)*TI*T2**G1«G2*T1»T2)/«.0 
DANP I 3 « C 16*62 KWP 93*TA33M 
DAN * DANPI3 

ELSEIP ( CND ( I 1 , J J . KK , I P 1 . JP 1 . K ) 1 THEN 

PC 1 6P* 4 * AJ2IJJ/2.0 

PC46P94 » AJ2( J ) *X1 YIP( J. I )/2 . O 

PC* 1 PI 4 * A J 2 ( J ) / 2 . 0 

6 2 KWP 9 4 «G 1 *C2*SC ( I . J , K 1 • ( G 1 • | PC 1 l*PCI l*PC t *PC4 l*PC3 1* >2 I * 1 | I 62 • 1 

1* ( PC 1 l*PC»1Pi4*PC1IP14*PCI1*PC1*PC4IP»4 1/4 . 0 
0ANP94 * C I R * R 2 KWP 9 4 « TA33M 
DAN * DANP *4 


ELSEIP ( CNO ( II .JJ.KK, I M2 , J.KP1 ) ) THEN 


Of' j :rv 


C- { 5 



312ft . 
3 5 2 9. 
3 ft 30 . 
3 ft 3 t . 
3*32 . 
3*33 . 
3*34 . 
3 ft 3 ft . 
3*3 1 
3*37 . 
3 ft 3 ft - 
3ft3» 
3*40 
3*4 1 . 
3*42 . 
3 ft 4 3 . 
3*44 . 
3*4 ft . 
3*4 ft . 
3*47 . 
3*4 ft . 
3«4ft . 
3*50 . 
3 ft ft 1 . 
3*52 . 
3**3 . 
3 ft ft 4 . 
3 ft ft ft . 
3 ft ft ft . 
3 ft ft 7 . 
3 ft ft ft . 
3lftS. 
3ft *0 . 
3* ft l . 
3**2 . 
3*13. 
3ft *4 . 
3 ft ft ft . 
3»ft ft , 
3 ft ft 7 . 
3 ft ft ft . 
3 ft I • . 
3*70 . 
3*7 1 . 
3 ft 7 2 . 
3*73 . 
3*74 . 
3 ft T i . 
3 ft 7 ft . 
3 ft 7 7 . 
3171 . 
3*71 . 
3 ft ft 0 . 
Sftft 1 . 
3 ft ft 2 . 
3**3 . 
3**4 . 
3 ft ft * . 
3ftl ft 
1**7 . 
Sftft* . 

3 ft ft S . 
3*90. 

3 ft 9 1 . 
3*92 . 
3*93 . 
3*9 4 . 
3*9 S . 

3 9 9ft. 
3 ft 9 7 . 
399 ft. 
3 ft 9 9 . 

3900 . 

3901 . 

3902 . 

3903 . 

3 904. 

3 SOS . 
390ft . 
3907 . 
390* . 
3909 . 
3910. 
3111. 

3912. 

3913. 

3914. 
39 1 S . 
39 1 C . 
3917. 
391ft. 
391ft. 
3920 . 

392 1. 

3922 . 

3923 . 
39 24. 

3 9 2 S . 
39 2 * . 
3927 . 
392ft . 

3929 . 

3930 . 

393 1. 

3932 . 

3933 . 

3934 . 

3935 . 

3 9 3 S . 
3937 . 
3939 . 

3939 . 

3940 . 

394 1. 

3942 . 

3943 . 

3944 . 

3 9 4 S . 
3949 . 
3947 . 
394ft . 
3949 . 
39*0 . 

395 1 . 
3992 . 

3953 . 

3954 . 

3955 . 
3*55 . 
39*7 . 
395ft . 
3559 . 


PC33P 1 1 1 « A2K(K)/2.0 

?0*(Cl*|PCl**PC*3*PC3*PC4ft+PC33**2)*1)**lG2*1) 

R2KWP 1 1 1 i (2*G1*C2*SG( I M 1 , J,K)*PC33*PC33P1 I 1*TO*S*2*C1*G2*PC33* 

. PC33P1 1 1 • T O | / 4 . O 
D4NMHIC [IM2KWP 1 1 1 *TA3 3M 
DAN * DANM1I 

2 

ELSEIF (CNO| II , JJ , KK, IM1 , J , KF1 J ] THEN 
PC32P 112 * A 2 K ( K | / 2 . 0 

PC33P1 12 * 42K ( K ) / 2 . 0 
TO « C 2 ■ » 

T 1 » | Cl* (PC 17*FCI2*FC2*FC47 + PC32*»! )♦ I ) * • T 0 
T2*2*C1*G2*PC32«PC32P112*T1 

T 3 • ( Cl* (PC1ft*PC93*PC3*PC4ft+PC33**2 )♦! ) * * TO 

R2KWP 1 1 2* ( SC t INI , J , K ) • ( 2*6 1 • C 2 • PC33 • P C33 P 1 1 2»T3»S*T2 ) 42*01 -C2-SG ( I 
. ,J,K)*PC32*PC32P1 1 2 * T 1 » S ♦ 2 * G 1 ■C2»PC33*PC33P I 12»T3*T2)/4 .0 

DAMP t t 2 * C I A ■ K2KWP 1 1 2* TA33M 
DAN i DANP 1 1 2 

3 

ELSEIF (CNOtir.JJ.KK, I,J,KFI|) THEN 
PC3 1 P 1 1 3 * A 2 K ( K ) / 2 . 0 

PC32P 1 13 * A2K ( K ) / 2 . 0 

TO * C2 • 1 

T 1 * (C1*(PC17*PCC2+PC2*PC4?+PC32**2)+1 ) * * TO 

R 2 KWP 1 13* { 5 C ( I , J , K | » t 2*G1*G2*PC32*PC32Pt 13*T1*S*2*C1*C2*PC31» 

. FC31F1 13*lCI»(FCll*PCI1+FC1*PC»l*FC31**2)*1 )»»TO)*2*C1*C2»SC(IM1, 
- J , K ) *PC32* PC3IP I 1 J ■ T 1 ♦ 2 * G 1 • G2*PC3 2*PC32P 1 1 3 • T 1 J / A . 0 
DANP 1 1 3 * C 1 R * R 2 KWP 1 1 3 * T A 3 3 M 
DAN ■ DANP 1 1 3 

4 

ELSEIF l CND ( I I , J J , KK , I P 1 . J , KP 1 ) ) THEN 
PC3 IP 1 1 4 • A 2 K IKJ/2.0 

R 2 KWP 1 14»G1 * G 2 * S G ( I , J , K ] * PC3 1 »FC3 1 F 1 14* 

. PC3 1 *» 2 ) ♦ I )*»{C2*l)/2.0 
OANP I 1 4 » C I R * R 2 KWP 1 1 4* TA3 3M 
DAN * OANP 1 1 4 


C1*(PC1i*PCSl+PC1*PC4»* 


ELSEIF (CNOI I I . JJ. KK, ITE , J, KLOW-2) ) THEN 
P C 3 1 P 1 I 2 » - ( CC ft* A 1 K ( K J * 5 J 

* ( CC ft* A 1 K ( K ) • S ) 

♦{CCft*A1K( K]»S ) 

* ( CC •* A J X ( KM1 ) • S ] 

' ( C C S • A 1 K ( KM 1 | • 5 ) 

- ( CCI * A 1 K ( KM1 ) * S ] 


PC32P 1 *2 
PC33P 192 
PC37P 1 *2 
PC3IF1I2 
PC39P 1 32 
TO* C2 * l 

T 1 * (Cl* (PC17*PCft2*PC2*PC47+PC32**2 ] ♦ 1 ) * »T0 
T 2 * 2 * G 1 *G2*PC32*PC32P1 ft 2 * T t 

T3*|C1* [PC1ft*FCI3 + FC3*PC4ft*FC33»*2)*1 ]**T0 
T4»(CI*|FCS3*PCI*FC23 , PCIft*FC3l*»2)*1)**TO 
TS*2*G1*G2*PC3ft*PC3ftP 1 ft 2 ■ T 4 

T9* ( Cl * ( PC54»PC9*PC24»PC«9*PC39»»2 ) ♦ 1 |**T0 

R2KWP 1*2* { SC ( I M 1 .J.KM1 )• (2«Cl*C2*PC39*PC39Pt«2*Tft*S*TS)*SC{ I ,J,KM1 
} * [ 2 * C 1 *G2*PC3ft»PC3ftP I *2»T4*S-*2*G 1 *G2*PC37*PC37P 1(2* ( G I * ( PC52*PC7 
♦PC22*PC«7*PC37»*21*1 l*«To|*SC| 1M1 , J , K ) ■ { 2 • C 1 *C2 * F C33 • FC33F 1 12* T3 
* 5 ♦ T 2 ) ♦ S C ( [ , J , K ) * (2*C1*G2 _ PC32*PC32P142*T!*S*2*G1 »C2»PC31* 

. PC31Plft2*{C1* (PC 1$*PCI1*FC1*FC»»*FC31**2I*1 )»»TO}+2*G1*G2*PC39* 

. PC39P 1ft2*Tft*T5-*2*C 1 *G2*PC33*PC33P1 ft2*T3+T2 1/4 .0 
C 1 RP 1 ft 2 » CC • 

DANP 1 12 > C 1 R * R 2 KWP 1 »2« TA33M*C I HP t *2 • R2KW* TA33M 
OAN * D A N P 1 ft 2 


ELSEIF ( CND | II , J J , K K , ITE. 
PC3 1 P I ft 3 ■ * ( CCS* A 1 K | K ) ) 

• I CCI* A 1 K ( K ) 1 


J , Kl OW *1)) THEN 


• I CCS* A 1 K | K J | 

■ | CCS* A 1 K { KM1 n 

■ | CCS* A 1 K ( KM 1 )) 
- ( CCS* A 1 K ( KM1 ) I 


PC32P 1*3 
PC33P 1*3 
PC37P 1*3 
P C 3 ft P 1 *3 
PC3SP I ft 3 
TO* C2 * 1 

T 1 * ( C 1 * (PC !7*PC*2*PC2*PC47*PC32*»2 } * 1 ] * * TO 
T2*2«C1*C2*PC32*PC32P1»3*T1 

T3* (Cl* (PCIft*PCK3 + PC3*PC4S+PC33**2)*1 J • • T 0 
T4i|61*|PCS3*FCA*FC23*PC*l*FC3»**2t*1|**T0 
TS ■ 2 * C 1 *C2*PC3ft* P C 3 »P 1 ft 3 • T4 

TI*|C1*(FCSA*PC9*FC2A*FCI9*FC3l**2)*t)**TO 

R 2 KWP 143* (SCI I Ml , J , KM I J* | 2*C1*C2*PC3S*PC39F 1ft3*T9*S+TI ) ♦ 5 C ( I , J , KM1 
) * ( 2*G 1 *C2*PC3ft*PC3ftP1 *3*T ft • S + 2* C 1 »C2*PC37*PC37P 1 43* { C 1 * ( PC52*PC7 
. ♦PC22*PC«7 + PC37**2J*l)**T0)-*-SC{ IM1 .J.Kl*(2*C1*C2»PC33*PC33P1ft3*T3 

. *5*T2J-*SC( I , J, K )» 12*C1*C2»FC32*FC32P143*TI*S*2*C1*CI*PC31» 

PC31P143* |Cl»lPC1l»PCH*PC1*PC4«*PC31»*2 ) + 1 }**TO)*2»C1*C2*PC39* 

. PC3IP1ft3*T«+T5*2*G1*G2*PC33*PC33P1«3*T3*T2)/4.0 

C I RP I *3 * CCS 

DANP I *3 *C I R * R 2 KWP I *3 * T A33M*C I NP I *3 ■ R 2 KW* T A3 3M 
DAN • OANP 1 ft 3 


ELSEIF ICNOtl t , JJ , KK , ITE, J.KLOW) ) 
PC31F144 * • [ CC4 ■ A 1 K I K I » S ] 

•|CC4*A1K(K)*S ) 

* { C C 4 • A 1 K ( K ] ■ S ) 

* ( CC 4 • A I K I KM 1 1 *S ) 

* ( CC 4 * A 1 K ( KM 1 | »S I 
- { C C 4 • A 1 K ( KM 1 ) * S ) 


THEN 


F C 3 2 F 1 ft 4 
PC33P144 
FC37P 1 *4 
PC3IP 1 ft 4 
FC35P 1 *4 
TO * G2 * 1 

T 1 * ( G 1 * | PC 17*PC*2*PC2*PC47 + PC32**2 ) ♦ 1 )**To 
T 2 » 2 * G I *G2*PC32*PC32P1ft4*Tt 

T 3 * ( C 1 ■ I PC 1 ft* PC83*PC3*PC4**PC33**2 ) ♦ 1 )**T0 
74* (G 1 * ( PCS3*PCft*PC23»PCIA + PC3l**2 ) ♦ 1 ) » » TO 
T5 * 2 * G 1 *C2*PC3ft*PC3ftP t ft 4 ■ T 4 

T5* (G 1* ( PC54*PCi*PC24*PCI9 + PC35**2)* t ) * * TO 

R 2 KWP 1«4*(SG|IM1.J.KM1)*(2*CI*C2*PC39*PC39P1I4*T«*$*TS) , PSGU.J,KM1 
)*(2*G1»C2*PC3»*PC3ftP1ft4*T4*S*-2*G1*C2*PC3T*PC37P!ft4*(C1»(PC52*PC7 
. ♦PC22*PC«7*PC37*»2I+1 ) * • T 0 ) ♦ S G [ IM1 , J , K)* (2*C1*G2*PC33*PC33P1ft4*T3 

. *S*T2)-*SG[ I , J,K)*(2»C1*C2*PC32»PC32P1I4*T1*S*2*C1*C2»PC3 1* 

. PC31P144* ( G1* I PCI ••PC* 1'*PC?*PC4ft*’PC31**2}*1 )**TO}*2»G1*C2*PC3S* 

. PC35P1ft4*Tft + TI*2*C1*C2*PC33*PC33Plft4*T3*’T2)/4 .0 
CIRP 1 ft 4 * C C 4 * S 

DANP1ft4*CIR * R 2 KWP 1 ft 4 • T A 3 3W* C I R P 1 »4*R2KW* T A 3 3 M 
DAN * OANP 1 ft 4 


ELSEIF { CND [ I I . JJ , KK ( ITE , J , 
P C 3 1 P 1 IS * - { CC 1 *A I K ( K ) } 

- { CC 1 « A 1 K ( K ) ) 

- t CC 1 *A1 K I K ) J 
* ( CC 1 * A I K ( KM1 ) } 

- ( CC 1 * A1 K { KM! J) 

- ( CC 1 *A1 K 1 KM1 ) ) 


KUP ) ) THEN 


PC32P 1 S5 
PC33P 1 ftS 
PC37P 1 <5 
PC34P 1 as 
P C 3 • P 1 *5 
T O * G 2 * 1 

T 1 * (G1*(PCH»PCI2 + PC2*PC47*PC32**2) + 1 ) • *T0 
T2 * 2*G 1 *C2*PC32*PC32P 1 ftS* T 1 

T3* (C1*(PC1ft*PCI3+PC3*PCftft*PC33**2)*1 ) • » TO 
T4* { G 1 * (PC53*PCI+PC23*PCtft'*PC3ft**2 ) + 1 J • » TO 
T»*2*G 1 » C2*PC3**PC3ftP 1 *S*Tft 

Tft* ( Cl* IFC|4»PCI*PC2 A*PCIIpPC3S ,, 2)*1 ) » • TO 

R 2 KWP t ft 5 * (SG| IM1 ,J,KM1)«(2 a G1*G2*PC39*PC39P1ft5*Tft«S + TS)+SC( I , J , KM1 
) * ( 2*C I *C2«PC3ft*PC3ftP 1 ft5*T4*S*>2*G 1 *G2*PC37«PC37P 1 fti* [ G 1 • ( PCI2-PC7 

♦ PC22*PC57*PC37**2 ) ♦ 1 )**TO|+SC( IM1 , J , K ) * (2*G1*C2*PC33*PC33Ptft5*T3 

• S ♦ T 2 ) *SG( I , J, K } * { 2*C1*C2*PC32*PC32P 1 ft 5 • T 1 * 5 ♦ 2 * G 1 *C2*PC31* 
PC31P1iS*(C1«(FC1l*PCB1*PC1*PC4l+PC3l**2|+1)**TO)*2*Ct*C2*PC3»* 
PC39P 1 ftl*T •*T5+2*G 1 « G2*PC33*PC33P 1 «S*T3*T2 ) /4 . O 

C IRP 1 ft* *CC 1 

DANP 1 ft 5 *C I R * ft 2 KWP 1 ft 5* TA3 3M+C I RP 1 ftS*R2KW* TA33M 
DAN * DANP 1 85 



C M 18 


THEN 


39 10 . 
3*91 
3163 . 
3163 
39 14 . 

3165. 
39 66. 
3967 . 

3166. 

3161 . 
3170 . 
397 1. 
3972 . 

3173 

3174 . 

3175 
3976. 
3177 . 

3176 . 
3979 . 

39 60. 
396 1. 

3162 . 

3163 . 
3164. 

3165 . 
3166. 
3167 . 

3166 . 
3961 . 
3990 . 
319 1 . 
399 2 . 
399 3 . 
3914 
319 $ . 

399 6 . 
319 7. 
3196 . 
3919 . 
4000 . 

400 1. 

4002 . 

4003 . 

4004 . 

4005 . 

4006 . 

4007 . 
4004 . 
4009 . 
4010. 

40 M . 

4012. 

4013. 

4014. 

4015. 

4016. 


E L S E I F ( CNO ( II ITE.J.KUP+1)) 

PC3 IP 146 * - ( C C 2 » A 1 K ( K ) *S ) 

PC32P 166 * • | C C2 ■ A 1 K ( K } » S ) 

PC33PI66 • - (CC2*A1K(K)*5) 

PC37P166 * •|CC2»A1K(KM1)*S] 

PC34P146 * - l C C 2 • A 1 K ( KM 1 ) » 5 ) 

PC39PI46 • ■ ( CC 2 * A 1 K | KM 1 )»S) 

TO* C2 - 1 

T 1 * ( Cl* ( PC !7»PCI2*PC2*PC47*PC32**2 ) 

T 2 » 2 » G 1 *G2"PC32*PC32P t 4 6* T 1 
T3*(C1»(PC16»PC63*PC3*PC44*PC33**2H 


1 )- 


■TO 


« 2 )♦ 1 ) »• TO 


► 1 l «■ TO 


T4« ( G 1 » ( PC53»PC** , PC23*PC44+PC36* 

T5»2*G1*G2«PC36«PC36P166»T4 

T6*{G1*(PC54»PC9+PC24*PC61*PC3»»«2H 
R2KWP 166* ISC ( I M 1 , J . KM1 ) ■ t2*C1*G2*PC31»PC39P164“T6»S+T5 ) + S G ( 1 , J , KM1 
) • ( 2*G1»G2*PC34»PC38P 1 66»T4*S+2*G1 »G2*PC37*PC37P1fl6* ( C 1 * ( PCS2*PC7 
♦ PC22«PCS7-*-PC37*»2)-M | *■ TO ) 4*C { I Ml . J ,K) • (2«G1»G2»PC33«PC33P146»T3 
■ S ♦ T 2 ) ♦S G ( I , J , K J • l 2 » G 1 ■C2*PC32*PC32P164*T1 *$+2*G1*C2*PC31* 
PC31P166*(C1»tPC16*PC61^PC1*PC46*PC3t*«2)*1]*»TO)+2*G1*G2*PC39* 
PC39P146«T6 + T5-»2«G1»G2*PC33»PC33P146»T3*T2J/4.0 
C I RP 1 8 8 * CC2* S 

DAMP 1 8 S * C I R» R2KWP 166*TA33M + CIPP166«R2KW«TA33M 
DAN ■ DAMP 1 64 
7 

ELSEIP ( CNO ( I 1 , J J . KK . I TE , J . KUP + 2 ) J THEN 


■ { CC3*A 1 K l K ) J 

- I CC3» A 1 K 1 K ) J 

• ( C C 3 * A 1 K I K ) ) 

- ( C C 3 * A 1 K(KM1 ] J 

- ( C C 3 ■ A 1 KltCMt J | 

* I C C 3 * A 1 K | KM1 J | 


• TO 


• TO 


PC3 1 P 1 67 
PC32P 1 67 
PC33P 1 67 
PC37P 1 67 
PC36P 167 
PC31P 167 
TO • C2 - 1 

T1i(C1»|PC17»PC€2*PC2*PC47*PC32- , 2)*1)» 

T2*2*C1»G2«PC32»PC32P1A7«T1 
T 3 * l G 1 ■ ( PC 1 l*PC63*PC3*PC46'*PC33*“2 ) ♦ 1 )• 

T 4 » 1 G 1 • t PC53*PCI»PC23*PCI4*PC36»*2 ) ♦ 1 ) ■ 

T5* 2*G 1 *C2*PC38*PC36P 1 67*T4 
T 6 * ICI* ( PCS4*PC»*PC24*PC6»*PC39«»2)*1 } ■ 

R2KWP 167* (SG( I M 1 , J , KM 1 )• (2»G1*C2«PC31*PC39P147*T1»S‘*-T5)>SC( I . J . KM1 
)• | 2»G 1 «G2*PC36»PC38P 1 87*T4*S^2“G1 »G2*PC37»PC37P 1 67» | Cl* {PCS2»PC7 

♦ PC22*PC57 + PC37* «2 ) + 1 ) • • TO J +5C I IMt.J, K ) ■ (2»C1«G2*PC33*PC33P!67*T3 

* S ♦ T 2 ) ♦ S G | 1 , J , K ) * (2*C < *G2"PC32«PC32P 1 6 7 • T 1 ■5*2»G1*G2*PC3 1* 

PC3 IP I 67* ( C 1 » ( PC 1 6*PC6 1 ♦ P C 1*PC46^PC31 ■»2 ) *1 )*«TO)+2*C1*G2»PC31* 
PC39P 1 67*T6 + T5*2*C!*G2*PC33»PC33P1«7*T3‘*T2)/A .0 
C I HP 1 67 * CCS 

DAMP 1 17 > C I R • R2KWP 187*TA33M*>CIRP1»7«R2KW«TA33M 
OAM * DAMP 1 67 
END I P 

RETURN 

END 

SUBROUTINE R 4 ( J , l , K , J J , II , KK , DAN ) 

RMDER4 .FOR 

INCLUDE ( INTRO ) 


4017. 

C 

p 


4014. 

c 



4019. 


P 6 1 > 

P l J , KM 1 . 1 M2 ) 

4020 . 


PI2 > 

P l J . KM 1 , I M 1 ) 

402 1. 


P 13 > 

P ( J , KM 1 . I ) 

4022 . 


P 64 * 

P t J , KM1 , 1 P 1 ) 

4023 . 


P 8 1 * 

P t JM 1 . X . I M2 ) 

4024 . 


P 6 2 * 

P 1 JM1 . X , I M 1 J 

4025 . 


PS3 * 

P ( JM1 . K , I ) 

4026 . 


P 6 4 « 

P l JM1 , K , I P 1 ) 

4027 . 


. PI 6 * 

P ( J , K , I M2 ! 

4028 . 


P 8 7 * 

P I J . K , I M 1 ) 

4029 . 


P 8 6 * 

P 1 J . K , I ) 

4030 . 


P 6 9 • 

P 1 J . K . I P 1 ) 

403 1. 


P» 1 * 

P [ JP 1 . X , I M2 ) 

4032 . 


P 9 2 * 

PIJM.K, INI) 

4033 . 


P t 3 « 

P { JP 1 , X . I | 

403 4. 


P94 t 

P ( JP 1 , K , I P 1 ) 

4035 . 


P106 

■ P | JM 1 , K P t . I M2 1 

403 6. 


P 107 

« P 1 JM1 , KP ! , IMt ) 

4037 . 


P 1 06 

* P { JM 1 . KP 1 , I ) 

403 6. 


P 1 09 

* P ( JM1 , KP t . I P 1 | 

4031 . 


Pill 

* P { J , KP 1 , IM2 ) 

4040 . 


P 1 1 2 

• P1J.KP1.1M1) 

404 1. 


P 1 1 3 

* PIJ.KM.I) 

404 2 . 


P 1 1 4 

• PtJ.KP1.lP1) 

404 3. 


P 1 1 6 

« P ( JP 1 . KP 1 . I M2 ) 

404 4. 


P 1 1 7 

• P l JP 1 , KP 1 , I Mi J 

4045 . 


P 1 1 6 

• P ( JP 1 , KP 1 , I ) 

404 6. 


P 1 1 9 

* P ( JP 1 , KP 1 . I P 1 ) 

4047 . 


P 136 

* P ( J . KP2 . I M2 ) 

4046 . 


P 137 

* PtJ.KP2.IM1) 

404 9 


P 136 

* P { J , KP2 . I ) 

4050 


P 136 

* PtJ.KP2.IPl) 

405 1 . 


P 162 

* P ( J , KLOW- 2 , I TE 

4052 . 


P 1 63 

* P t J , KLOW- 1 . ITE 

4053 . 


P 164 

* P t J . XL OW, ITE ) 

4054 . 


P 1 85 

* PtJ.KUP, ITE) 

4 0 5 5 . 


P 1 * 6 

* P ( J , KUP* 1 , ITE ) 

405 • . 


P 187 

« P { J , K U P * 2 , ITE ) 

4057 . 

c 



4058 . 

c 

PO 



4051 . 

4060 . 

406 1. 

4062 . 

4063 . 

4064 . 

4065 . 

4066 . 

4067 . 
40 64. 

4061 . 
4070 . 

407 1 . 

4072 . 

4073 . 

4074 . 

4075 . 

4076 . 

4077 . 
4076 . 
4079 . 

4060 . 
406 1 . 

4062 . 

4063 . 
4044 . 
4065 . 
406 6. 
4087 . 
4086 . 

4061 . 
4010 
401 1 . 


P D 1 * OKI I ( I )«|P68*S*P8t)+0XINF/XIXIP(J, I ] 

PD 2 * OX I I ( I Ml ) *( P«7*S + P86 J ♦OX I NF/X I X I P ( J . I M 1 ) 

P 0 3 * 0 X I I ( I M2 ) • ( P8 6 * 5 + P47 J *QX I NF/ X I X I P ( J , I M2 ) 

P 0 1 3 * OXI I ( I | »(P 1 13*S*Pt 14 I+0XJNP/XIX1P ( J, I ) 

P D 1 4 * DX I I( IM1 ) • < P 1 1 2«S*P 1 1 3 ) +0X I NF/X I X I P ( J , !M1 ) 

PD15 * OXII ( I M2 ) * ( P 1 1 1 » S ♦ P 1 12)*0XIMF/XIXIPtJ, I M2 ) 

P 0 1 6 « X I V IP [ J . I |•0XINF»S/XIXIP(J t l)♦tAJ2^J)■(P94♦P93-P69-P44)♦AJt 
|J)»|PS9+P44-P44*P«3) 1/2.0 

P 0 1 7 » X l Y 1 P 1 J , IM1 )»0X1NF»S/XIXIP(J, IM1 ) + ( A J 2 ( J ) • (P93+P92-P68-P87) 

. +AJ 1 ( J ) • | P46 + P47 - P43 - P42 J J /2 . O 

P 0 1 6 * XIYIPlJ, IM2)*QXINP»$/XIXIPIJ,IM2] + (AJ2|J)«(P*2TR91-P47-P66) 

. +AJ1 t J)* ( P47*P»I-P62*P*1 IJ/2.0 

PD26 * XIYIPlJ. I }*QXINP*S/XIXIP( J , I ) + ( A J 2 { J}* (PI I 1 ♦ P 1 1 A * P I 14 - PI 13 ) 
. ♦ A J 1 (J)" I P 1 I 4 * P 1 13-P105-P10A) 1/2.0 

P 0 2 1 * XIYIPlJ, I M 1 )»OXJNF«S/XtXIP[J, INI )*(AJ2(J)«(P1 1 6*P 1 I 7 • P 1 13* 

. PI 12I+AJ1 ( J | • (PI 1 3 * P 1 12*P104-P107 J J/2.0 
P 0 3 O * XIYIPlJ. I M2 |»OXIMF»S/XIXIP( J, IM2l*t AJ2I J)*(M 17*P11I-P1 12- 
. PI 1 1 ) ♦ A J 1 ( J | • ( P 1 1 2 ♦ P I 1 1-P107-P106) J/2.0 
P D 3 1 • • I A2K I K ) • ( CC2»P 1 66*S + CC4* P 1 64* 5 ♦CC 6 *P 1 42» S ♦CC3*P 1 67 + CC 1 • 

. P165 + CCS-P 163) ) ♦ 0 2 I N F ♦ I A 1 K ( K) • | PII>P44 ■ PI4‘P63)*A2K|K)» I *PI»*PII* 

. P 1 1 4*P 1 13) 1/2.0 

PD 3 2 » • | A2K ( K ) • { CC2-P 1 66 ■ S + CC4* P 1 84*S«-CC4«P 1 62«5>CC3* P 1 67 + CC 1 • 

. P165 + CC5»P 163) |+0ZINP+lA1K(K|* |P64*P67-PI3*P62) - * , A2K(K)« ( • P64 * P47* 

. P 1 1 3*P 112)1/2.0 

P033 « • | A2K ( K ) • ( CC2-P 1 8t»S*CC4»P t64«S*CC6*P 1 62*S*CC3*P t 47*CC 1 • 

. P168*CC5*P163) )*0Z INF* ( A1 K( K )• (P17 + P84-P42-P61 > *A2K ( K ) ■ I - P87 - P64* 

. P 1 1 2*P 111)1/2.0 

PD43 * -(A2MKP1 ) • ( C C 2 • P 1 46*$+CC4*P 184*S < *CC6*P 1 I2*S*CC3«P t 5 7 ♦ C C 1 » 

. P18S+CC5»P143) ) *0 I I NF ♦ ( A 1 K | KP 1 ) • ( *P4I -P46*P I 14*P1 1 3 ) *A2K ( KP 1 )•( 

. P139+P138-P1 14-PI 131 )/2 O 

PD44 * * ( A 2 K ( K P 1 ) • I C C 2 • P 1 4S*S*CC4*P164»S*CC»»P1I3*S*CC3*P117*CC1» 

. P185*CC5*P 183) )*0ZINF*|A1K| KP 1 )*( - P66-P47*P1 1 3*P 1 I 2 ) ♦A2K | KP 1 )« ( 


C- 16 


C 

Of 


i = •• 




rpoc n 

'V \ f liT/ 



409 2 . 
<013 . 
4014 
*09 $ 
409 * . 
*09 7 
4099 
*099 . 
4 100. 
4 10 1. 
4 102. 
4 103. 
4 104. 
*109 
*109. 
4 107. 
4 104. 
4 109. 
4 110 . 
4 111. 
4 112. 
4 113. 
4 114. 
4 115 
* 1 1 S . 
4 117. 
4 111. 
4 119. 
4 120. 
4 12 1. 
4 122 
4 123. 
4 124. 
4 125. 
4 121. 
4 127. 
*129. 
4 129. 
4 130. 
*13 1. 
4 132. 
4 133. 

4 134. 

4 135. 

4 I 3 9 . 

4 137. 

4 139. 

4 139. 
*140. 
*14 1. 

4 14 2. 

4 14 3. 

4 14*. 

4 145. 

4 1*9. 

4 147. 

4 144. 

4 149. 

4 150. 

4 15 1. 
*152. 

4 19 3. 

4 194. 
*115. 

4 154. 
*157. 

4 154. 

4 15 9. 

4 190. 

4 111. 

4 112. 

4 113. 

4 194. 

4 195. 

4 199. 

4 197. 

4 144. 

4 149. 

4 170. 

4 17 1. 

4 172. 

4 173. 

4 174. 

4 175. 

4 17 9. 

4 t 77 . 

4 179. 

4 179. 

4 190. 

4 19 1. 

4 192. 

4 193. 

4 194. 

4 195. 

4 199. 

4 197. 

4 199. 

4 191. 

4 110. 

4 1 9 t . 

4 112. 

4 193. 

4 194. 

4 195. 

4 199. 

4 197. 

4 199. 

4 199. 

4 200. 
420 1. 

4202 . 

4203 . 

4204 . 
4209 . 
4201 . 
4207 . 
4209 . 
4209 . 

4210. 

4211. 

4212. 

4213. 
42 14. 
4215. 
4219. 
42 17. 
4219. 
4211. 
4220 
422 1. 

4222 . 

4223 . 


. M34«M37-P113-M12|)/2,0 

PD4S » - | A2K ( RP 1 )»(CC2*PIJI»S + CC4ipH**5*CCMP192«5*CC3»PlI7*CC1* 

. P195«>CCS»P143) ) *0 2 T NF* | A 1 1t ( KP 1 ).(*PI7-P49*P1 1 2*P 1 I 1 ) +A2K( KP 1 }•( 

. P 1 37 + P 1 3 I * P I 1 2 *P I 1 I 1 ) / 2 . 0 

PD49 * A1 1*1 J . I ) « ( DX I I | 1 ) • ( P99*S*P91 | *0X I MF/X I X I P ( J . I ) ) *X I Y IP { J I) 
. • ( XIYIPfJ, I )*0X]NF*S/X]X1P(J,{ )*(AJ2(J)>(P94+P93*P99*P99}+AJ1 { J } > 

I P9t*Paa -P94-PS3 ) )/2 . 0) 

PD47 « A 1 1 R ( J , IMI ) ■ t OX I 1 ( JM1 ) » I P97»S *P99 } + 0X I NF/ X I X ! P ( J , I M 1 J ) ♦ 

. *1 V IP I J , !M1 J* (XIYIPlJ, INI )*OXINP>$/XIXIP(J, IMI ) + ( A J 2 { J ) * I P93 + P92* 

. P99»P97)+AJI ( J ) • (P99 + P97*P93*P92) J/2.0) 

P049 • A 1 IRI J , IM2 ) • ( DX I I I IM2 ) • ( P99»S*P97 ) *0X I NF/X I X I P ( J, IM2 )) ♦ 

. X I V 1 P ( J , 1M2I*(XIVIP|J. IM2)»0*1MP.S/XIXIP| J, lM2j*(AJ2|Jl*|P92*P91- 
. P97-P9«)+AJ1(J)*lP97*P95-P92-P91)J/2.0) 

PD5B » A I 1 R 1 J , I )» 10X11 I 1 | ■ IP1 1 3*S*P 1 14 | *QX I NP/X 1 X I P ( J , I ) ) + X I Y I P ( J , 
. I )*(X1YIP(J, I )*0X1NF*S/X1X]P|J, I ) ♦ ( AJ2 (J)* (PI 1 9 ♦ P 1 1 9 * P 1 14-PI 13)* 

. A J 1 | J ) ■ | PI 1 4*P1 1 3 * P 1 OS * P ! 09 ) )/2.0) 

P059 « A I I X ( J . IMI } « [ D X I I ( IMI 1 • ( P 1 1 2 * S ♦ P 1 1 3 ) +0X INP/XIXIP(J, IMI) )♦ 
XIYIPlJ, I M 1 )*|XIYIP(J, IM1 )*0XINP*5/X1XIP(J ( IMI ) + (AJ2(J)*(PI19 + 

PI 17-PI 1 3 ' P 1 1 2 ) * A J 1 t J } * ( P I 13+P1 12-P109-P107) ) /2 . 0 | 

P090 » A 1 1 * I J , I M2 ) * (DXI 3 ( I M2 J • ( P 1 I 1 • S ♦ P 1 12)+QXJNF/XZXIP(J a IM2 ) ) ♦ 

. XIYIP(J, IM2 )*lXIYIP(J, 3H2 )*0XtNP*5/XIXlP(J, IM2)^(AJ2(J>*(P1 17* 

. PI 1«*P1 12-PI 1 1 ) ♦ A J 1 ( J ) ■ ( P 1 1 2 + P 1 1 I-PI07-P109) 1/2.0) 

P09I * XIYIPlJ, 1 ) • { 0 X l I ( l )* |P99*S+P19)*OXINP/X]XIP(J, 1 ) )+XIYIP(J, I 
. )»OXINP*$/XIXIP(J, I ) * ( A J2 ( J ) * |PI4*P|3"P6I*P9I)*AJ1 |J)* |P99*P99* 

. PM -P93 ) ) /2 . O 

PD92 i XIYIPlJ. IMI IMOXII (IMI ) • ( P 9 7 • S + P 9 • ] + 0 X ] N F / X I X I P ( J. IH1 ) )♦ 

. XIYIPlJ. JM1 )*OXIHF*S/XIXIP|J, ]M1 )+{AJ2(J) s {P93+P92*P99*PI7)+AJt (J 
. ) * ( P99 + P97 -P93 - P92 ) ) /2 . O 

P093 • X 1 Y I P ( J . IM2 ) ■ | OX M I I M2 ) * ( P9S*S*PS7 ) *0X I MF/X I X I P ( J . IM2 )) ♦ 

* X 1 YIP ( J , I M2 ) *0X INF-S/X I XI P I J. I M2 ) * t AJ2I J ) * ( Pf 2*P9 1 *PS7 - PB 6 ) + AJ 1 ( J 
1 ■ ( P 97 + P 9 I - P92 * P 9 1 ) ) /2 . O 

P 0 7 3 » XIYIPlJ, I } • ( 0 X I I ( I ) • ( P 1 1 3*$+P 1 14)*0XINF/XIX)P[J, I | ) ♦ X I Y I P ( J 

. I ) - OX I NP-S/X I XIP ( J . I }♦ ( AJ2 1 J)* ( PI 1»*P I 1 9 -P 1 1 4 -P I 13 i+AJt ( J )* J P 1 14 
. ♦P 1 1 3 - P 1 09 - P 1 0* ) ) / 2 . O 

P074 > X I Y I P i J, IMI ) * ( DX I I { IMI ) * I P 1 1 2 *S*P 1 13 )+OXIMF/XIXIP(J, IMI J )♦ 

. XIYIPlJ, IMI )*OXINP*S/XIXIP(J, (Ml |*(AJ2(J)*(P1 1 |*P 1 17-PI 13-PI 12J* 
AJ1 (J) ■ ( Pi 1 3 ♦ P 1 1 2 * P lOI * P 107) j/2.0 
PD75 * XIYIPlJ, 1 M2 ) * | D X I I ( IM2) , |P1 1 1 * S +P 1 12)+QKINF/X1XIP(J, IM2) ) * 

. XIYIPlJ, 1M2]*0XINP»I/XIX1P(J, 1M2) - * , (AJ2(J)« (PI 1 7 ♦ P 1 II*P112*P111 )♦ 

. A J 1 ( J ) ■ | P 1 1 2 * P 1 1 1*P107*P10I ) ) / 2 . O 
C 

C R2KP , C I R 

C 

TO* ( Cl* ( PD17*P042*P02*PD*7*P032**2 ) ♦ 1 ) » • C 2 
T1 ■ ( Cl* | PDI4*POI3*PD3 , P04| + PD33**2)'*1 )**C2 
T2*(C1*|R021*PD74*PDI4*POI1^P044»»2)*1)* , C2 
T 3 * ( Cl* (PD30*P075>PD 1 I » PDIOtPB4 $« • 2 ) ♦ 1 ) » • C 2 

*2 K P • (SCI IMI , J.KP1 ) • (T3*S*T2)*SG( I < J,KP1)*(T2*SpIC1«(P029*P073* 

. PDI3*P059*PD43*»2)*1 ) ■ * C 2 ) ♦ S C | 1M1,J,K|»|T1*J + T0|*SC[ I , J, K)* [ TO*S* 

(61*|P01l*P0l14PDI*PD4l+P031*«2)*1)**SJ)*T3+T2*T1»T0)/< O 
CIRiCIRCU) 

C 

C 0 C * 4 

C P 9 1 

IF (CNO{ II .JJ.KK, I M2 , J , KM1 ) ) THEN 
PD33PI! * * | 1 .0/2 ,0»A1K|K) I 

TO* ( G 1 » | P01 9*PD93*FD3*PD44 + PD33**2 ) ♦ 1 ) ■ * ( C2 - 1 ) 

R2KPP91 * (2*C1*G2*SC( IMI ,J,K)»P033*P033P91*TO*S+2»G1*G2*P033« 

. PD33P9 1 • TO ) /* O 
DAMP! 1 *C I **R2KPP5 1 »5*TA33P 
DAN * DANPI1 

C P 92 

ELSEIF (CNOI II .JJ.KK, IMI , J . KM 1 ) ) THEN 
P032PI2 * ' ( 1 . 0/2 . O* A 1 K ( K I j 

P033P92 * - I 1 . 0/ 2 . O* A 1 K | K ) ) 

TO ■ G2 * 1 

Tl* I Cl* ( PE317»PDI2*P02*PD*7*P032»*2)*1 )«*TO 
T2*2«C1»C2»P032*P032P52*T1 

T3* ( G 1 * | P0ll*PDi3 + PD3»PD4**PO33**2 ) ♦ 1 ) » • T O 

R2KPPI2 * I SC ( IMI , J, K ) » (2*G1 B C2*PD33*PD33Pi2*T3*S+T2 I ♦2*C1*G2»SC ( I , J 
. , K ) • PD3 2 • P03 2P *2 * T 1 * S* 2 « C 1 • G2 * P03 3* P033P 92« T3* T2 ) /4 . O 

DANPI2*C IX**2KPPi2*S*TA33P 
DAN * 0ANPC2 

C P 13 

ELSEIF (CNOI II, JJ.KK, I.J.KMl ) ) THEN 
P031P93 « - I I . 0/2 . 0*A 1 K ( K J) 

P032PI3 • • [ 1 . 0/2 . 0*A I K< K | ) 

TO * G2 - 1 

Tl i | 61* | P011»POI2*P02»P047»P032»*2)*1 |«*TO 

K2KPPI3 * ISCI 1 ,J, K)»{ 2*CT«C2*PD32*PD32PI3*T1*S*2‘C1*C2»P031»PD31PI3 
. *|G1*|PDII*PDI1*P01*PD4l«PD3l**2)*1)*iTQ)P3*GI*G2*S6l 1 Ml , J , K ) • 
P032«PD32P S3* T 1 ♦ 2«C I * C 2 • P D 32 • P D 3 2 P 1 3» T I ) / 4 . O 
0ANPI3 * C I R*R2KPPI3*S*TA33P 
DAN • 0 A NP 9 3 


ELSEIF ICNOI II r JJ,KK, IP1. J.KMt J) THEN 

P031P54 * - ( 1 .0/2 . O* A 1 K I R J ) 

R2KPPI4 i G 1 « C2»SC ( I , J, K) »P031 *PD3 1P|4» (G1« I PO 1 •« PD I 1 «PD 1 *PD4I*PD3 1 
. • • 2 1 ♦ 1 ) • ■ ( 6 2 * 1 1/2.0 

0ANPI4iCIX«R2KPPI4*S«TA33P 
DAN • DANP94 

ELSEIF (CNOI II , JJ.RK, IM2, JM1 ,K) ) THEN 
PD19P91 « - ( 1 0/2.O*AJ1| Jl ) 

PD49P91 * - ( 1 . 0/2 . 0« AJ 1 (J ) ■ X I Y 1 P ( J , 1 M2 J ) 

PDS3P9 1 * *(1.0/2. O « A J 1 ( J ) ) 

TO* [ C 1 » 1 PD 1 l»PDI3 + P03*P04J*P033**2 ) ♦ 1 ) • * { C2 * 1 ) 

T 1 i PO I l*P0»3P9 1 ♦ P 0 1 4PB 1 •P0I3*P03*P04IP| 1 

R2KPPI 1 * ( C 1 * C 2 • S C ( 1 M 1 , J , K) «TO*T I * J *C 1 *C2* TO* T 1 )/4 .0 

DANP9I »CI*“*2KPP9 l*5*TA33P 

0 AN * DANPI 1 


ELSEIF I CNO | I I . JJ , KK , IMI , JM1 , K ) } THEN 


I 1 .0/2 . 0*AJ1 ( J ) ) 

• I 1 . 0/2 . 0»A J 1 ( J ) ) 

•I 1 .0/2 . 0*AJ1 ( J I*XIVIP(J, IMI ) } 
• [ 1 . 0/2 . 0*AJ 1 (J]*X1YIP|J, IM2JJ 
- i 1 . 0/2. 0« AJ 1 | J 1 ) 

- I 1 . 0/2 . O* AJ 1 ( J ) ) 


PO 1 7P92 
PO 1 9P92 
P047P92 
P 0 4 9 P 9 2 
PD92P42 
PDS3P92 
TO » G2 • 1 

Tl * (G1* | PO 1 7»PD92»PD2*PD*7-*'P032»*2 )♦ 1 J»«TO 
T2*P0 I7*P0I2PI24PD 1 7P42*P092*PD2»PD47PI2 
T3 » C 1 P62« T 1 »T2 

T 4 » t C 1 * ( P01 9*P0I3 + PD3*PQ49 + PD33**2) + 1 J * * TO 
T5 » PO 1 8*P0I3PI2*P0 1 9P92*PDI3*PD3*P044P92 

*2NPP42» (SGI IMI .J,K|*|CI*G2»T4*TS*$*T3)+G!»G2*SG| I ,J,K)»T1*T2*S+G1 
. •G2*T4*TS*T3)/4.0 

DANP«2*C1**P2RPP92*S«TA33P 
DAN s 0ANP92 


ELSEIF (CNOI I I . JJ, KK. I . JMI .K| ) THEN 


• { 1 - 0/2 . O* AJ 1 ( J ) ) 

- I 1 . 0/2 . O-AJ 1 | J ) ) 

- ( 1 .0/2 .0*AJ1 ( J)*X1 YIP( J, 1) | 

*( 1 .0/2 .0*AJ1 ( J)«XIVIP{ J, IMI)} 
* { 1 .0/2 ,0*AJ1 I J) ) 

•It. 0/2 . 0«AJ1 ( J) ) 


FD 1 9 P 9 3 
PD 1 TP 1 3 
P049PI3 
PD47PI3 
PDS 1 P93 
P092P93 
TO • G 2 • 1 

Tl * ( G 1* ( PD17*P092*PD2*FD47 + P032**21*1 ) ■ • TO 
T2»P0 17»PDI2P*34.P0 17P93-P0€2*PD2*PD47P43 

K2KPP93* (SG( I ,J, K) • (G1 *B2*T1*T2*S*G1*G2*(G1* (P0 19*PD91*P0 1*PD49* 

. P031**2 )♦! )**T0* I PD1 9*P0i 1P93 + P01 IPI3*PD9 l*P01*P049P93) ]*G1*G2*SC 


ORIGINAL PAGE IS 

OF POOR QUALITY 



4224 

4225 . 
4 2 2 & . 
4227 . 
4224 . 
4 229. 
4 230. 

423 1. 

4232 . 

4233 

4234 

4235 . 
4234 
4237 . 
4234 . 
4239 . 
4 240. 

424 1. 

4242 

4243 
424 4. 
4245 . 
424 6. 

424 7, 
4 248. 

4249 . 

4250 . 

425 1. 

4252 . 

4253 . 

4254 . 
4 255. 
4 256. 
4257 . 
4 258. 
4259 . 
42*0 
42*1. 
42*2 . 

4263 . 

4264 
4285 . 
4 2*6. 
4 2 67. 
4268 . 
4 2*9. 
4 270. 
4 27 1. 

4272 . 

4273 . 

4274 . 
4 275 . 
4 27*. 

4277 . 

4278 . 
427* . 
4280 . 
4 28 t . 

4282 . 

4283 . 
42*4 . 
4285 . 

428 6. 
4267 . 
42*4 . 
4289 . 
4 290. 
*29 1. 
4 292. 
4 293. 
4 294. 
4295 . 

429 6. 
4297 . 

429 8. 
42*9 . 
4300 , 

430 1. 

4302 . 

4303 . 

4304 . 

4 305 . 
4306 . 

4 307 . 
4308 . 

4 309 . 

4310. 

4311. 

4312. 

4 3 13. 
43 14 
4315. 

4 3 16. 

4317. 

4318. 

4319. 
4320 
432 1. 

4 322. 

4 323 . 

4324 . 

4325 . 

4 326. 

4 327. 

4 326 . 

4329 . 

4330 
4 33 1. 

4 332 . 

4333 . 

4334 . 

4335 

4336 . 

4337 . 
4336 . 

4338 . 
4340 

434 1 . 

4342 . 

4343 . 

4344 . 

4345 . 

4346 . 
43*7 . 
4344 . 

4349 . 

4350 . 

435 1. 

4352 . 

4353 . 

4354 . 

4355 . 


( [HI , J,K)*T1»T2+C1 , C2*T1»T2 )/* 0 

0 A N P 8 3 * C I R»R2APP83"5* T A 3 3 P 
DAN • DAMPS] 

E L 5 E I P t CND ( I 1 . JJ . KK . I P 1 , JM I . A J ) THEM 
PD16P44 * - ( 1 . 0/ 2 . 0- AJ 1 l J ) ) 

P046P84 « - ( 1 . 0/2 0* A J 1 l J ) • X I Y I P | J . I J 1 

POI 1PM * - { 1 . 0/2 . 0«AJ 1 | J ) J 

82<PP»4»C1*:2*SC( I, J.K)*(CI»|P01ltPDI1PPD1»PDII*PD31»»2)*l )*«|C2-I 
) ■ ( PD 1 4 ■ P 0 4 1PM + PD 1 IPJOPDS 1 *PD I ■ PD4 IP| 4 ) / 4 , O 
DANP84«CIA»R2APP8**S*TA33P 


DAM 


0 AMP 84 


ELSE IF (CND( I I , JJ.KK, IM2, J.K) J THEN 
PD3P8 6 * 0* [ I ( I M2 ) »S 

PD16P8I i l * AJ2 ( J ) +AJ 1 (J) 1/2.0 
( - A2A ( A ) +A 1 X ( A ) )/2.0 
- I 1 . 0/2 . 0» A 1 A ( AP 1 ) ] 

D * I I ( I M 2 | » A 1 1 A ( J , IM2) • S * ( * A J 2 (J) ♦ A J 1 (J) ) • X I Y I P ( J . IM2 1 / 


DX1 l ( IM2)*XIVIP|J. 1 M2 1 • $ + [ * A J2 ( J ) + A J 1 (J) )/ 2 .0 


PD33P 8 I 
PO « 5 P 6 6 
P046P6C 

. 2.0 
P0I3PU 
T O • C 2 * 1 

Tt « I Cl* | PD1I>P0(3 + PD3»PD4S^P033**21*1 ) <, T0 

T2>PD16*PDi3P6t*PDl8P|l»PDI3+PD3*P04|P>1*PD3P4S*POIi*2*PD33* 

. P033P66 

T3 • ( C I • ( PD3O*P07 5*PD I S»PD *0+PD4S» * 2 J ♦ 1 1 ■ • TO 

82KPPII* (2»G1*C2»SC( IM1 , J.KP1 ) *PD4S*PDif P|l«T3*S«Cl *C2*$CI I Ml , J , A ) 
»T 1*T2*S+2*G1 *C2*PD4S*P045P66*T3*G I «C2» T 1 » T 2 ) /4 .0 
DANPIUCIR»R2KPP»»»S*TA33P 


OAM 


DAMP 6 6 


EL5EIP ( CNO ( I I , J J , KK , I M 1 , J , K ) ) THEN 
PD 2P87 * OX I I ( [Ml ) *S 

PD3P87 * OX [ U I M2 ) 

PD17P87 » ( ■ A J 2 ( J ) ♦ A J t (J) 1/2.0 

( - AJ2( Jj+AJI (J) J/2.0 
[ -A2K t K ) + A 1 A ( K) 1/2.0 
I - A2K| K)PAIK(K) 1/2.0 

- ( 1 . 0/2 . O* A 1 K( PtP 1 ) 1 

- | 1 . 0/2 . 0*A IK( API ) ) 

OKI 1 ( IM1 ) • A 1 1 A ( J , [Ml ) * S ♦ ( *AJ2 ! J ) ♦ AJ 1 (J) 1 * X 1 Y I P ( J , IM1 )/ 


I *AJ2(J|+AJ1 ( J ) ] *X1 Y 1 P( J, I M2 1 / 2 .0*0X11 ( I M2 ) * A t 1 R | J , I M2 1 
OKU ( [Ml ) • X I Y l P { J , I M 1 | * S •* ( * A J 2 ( J ) * A J 1 (j) )/2.0 
DXri(IM2l*XirrP(J. IM2)M*AJ2(J)+AJ1 (J) 1/2.0 


PDUPS7 
P032P 67 
P033P 67 
P D4 4 P 87 
P 0 4 5 P 8 7 
P 0 4 7 P 8 7 
. 2.0 
P D 4 8 P 8 7 
P062P87 
P063P87 
TO * C2 • 1 

T1*(G1«(PDt7«P062*P02»PD47*P032»*2)*1)»*TO 

T2*PD17*PDi2P87+P017P87»PD«2*P02»PD47PI7*P02P87*PD47*2*P032* 

. PD32P67 

T3 * G 1 ■ C2 »T 1 « T2 

T * * ( G1« [ P016*P063*P03*P046 + P033««2 1 ♦ 1 ) ••TO 

T 5 * P D 1 8*P063P87*PD 1 8P|7 , PDI3 + PD3*PD*IPn*P03PI7*PD4l + 2*P033* 
PD33P47 

T 6 » (Cl* ( P02I*PD74*P0 1 4«PDSI'»P044«»2 ) ♦ 1 )*«TO 
T7 * 2 * G 1 •C2*P044»PD44P87a T* 

T 8 * ( G 1 * |P03O»PD7l*PD i J«PDIO»P04$**2)*1 } *»TO 

A2KPP47* { SC ( [Ml, J, API ) » | 2* C 1 « C2 « P04 J * P DAS P 8 7 * T A* S PT7 ) ^SC ( I M 1 , J , A 1 * 
I Cl •C2*T4»TS«$»T3 ) *2*C 1 • S2* JC I J . J , K P 1 | * »D4 4 ■ P0«4 PI7 • T l«S tC 1 * C2 «SC 
(I J J,K)*TI*T2»$»2»Cl*C2*P045«P045P87"T6*T7+C1»G2«T4»T5*T3J/4.O 
DAMP I 7 « C I A«A2KPP87»S*TA33P 


0 A N 


0ANP87 


E L S E [ P (CHOI l I .JJ.KK, 2 , J.K) ) THEN 
PD 1 P46 • 0X11(1}*$ 

P02P68 * OX I I ( [Ml ) 

P01IPS6 * ( - A J2 I J 1 ♦ AJ 1 ( J ) ) /2 0 

( - A J 2 ( J 1 ♦ A J 1 [ J ) ) / 2. O 
( • A2R | K ) + A 1 X| X ) 1/2.0 
( * A 2 A | K)+A1K|K) 1/2.0 
- [10/2. 0« A 1 A ( KP t ) ) 

* ( I . 0/2 . 0« A 1 A ( KP 1 ) 1 

DX1 I ( 1 ) * A 1 1 A ( J , I | * 5 ♦ | * A J2 ( J 1 * A J 1 ( J| J*XIYIP(J. I 1/2.0 
l - AJ2 ( J 1 ♦ A J 1 (J) j » X I Y [ P { J , [Ml )/2 .0*0X1 I ( IM1 |«A1 1A(J, IM1 1 
DX1II 1 )*XIYIP( J, 1 ) * S ♦ ( ■ AJ2 l J 1 ♦ A J 1 (J) J/2.0 
OXII ( 1 M I | » I 1 Y I P ( J , [Ml )♦( ■ AJ 2 I J ( ♦ A J 1 (J) 1/2.0 


PO I 7P 64 
P03 1 P 8* 

P032P68 
PD43P 86 
P044P8S 

PD47P 64 
P 0 6 1 P 86 
P062P88 

TO • G 2 - 1 

T 1 • I C 1 * {PD17*P062*P02*PD47*P032**2 1 + 1 ) » » TO 

T2*P017*PD62P66+PD17P66aP062+P02*P047P84+’P02PA4*P047+2*P032* 

. P 0 3 2 P 8 6 

T 3 * [Cl* ( P029*PD74+PD 1 4*PDSI*PD44*«2 I ♦ 1 1 ■ ■ TO 

A2KPP6S* (SGI [ , J.KP1 )*(2*C1*C2*P044*PD44PI|*T3«S*2*C1*C2*PD43* 

. PD43P|l*(C1»|PD24*P073»P0I3»PD54*PQ43**2|*1)»*TO)+$G|l,J,X)*|C1* 

G2*Tt*T2»S*Cl*G2* I G 1 • ( POI 8*PDI1 + PDt*P04l*P03 1 •*21 + 1 } • • T O • ( POI 8“ 
PD61P84 + P01 IPI8*PDI 1*PDl*P04»P88*PD1P4A»P046*2*PD3 1 ■ P03 1 P B A ) } > 2 * 

G 1 *C2*SC ( I M 1 ,J, API | *PD44*P044PA8*T3«2*C 1 *G2* P0*4*PD4*P44«T3 + C1 *C2 
•SCI IM1 p J,K)»T1«T2*C1«G2»T1*T2)/4.0 
0AMP48«C(A*A2KPP5S»S»TA33P 


0 AN 


DAMP 64 


ELSE IP ( CNO ( I I , J J . AA , I P 1 , J . A J 
PD1P89 * 0 X I J ( T | 

P D 1 6P 69 
P D3 1 P 69 
P043P8I 
P049P8* 

PO • 1 P69 


THEN 


- A J 2 ( J ) ♦ A J 1 ( J ) 1/2.0 
( • A2A { A ) ♦ A 1 K I K ) J/2.0 
- ( 1 .0/2 . 0*A 1 A( KP 1 ) | 

( *A J2 [ J ) *A J 1 (Jl I * X 1 Y ( P ( J , [ 1/2 . O* D X ] 1 ( I 1 * A I I R ( J , I J 
DXI [( I ) ■ X I Y I P ( J , 1 )♦( * A J2 ( J I ♦ A J 1 (Jl 1/2.0 


TO * G2 ■ 1 

A2KPP89 * (2"C1»C2»5G( I , J,KP1 }*P043>PD43P49* ( G1*[PD24»PD?3>PDI3*P054 

♦ P043**2 ) + 1 )«»TO + C1*C2«JG| I P J, A) •( Cl • I P 0 1 6 * P D 6 1 ♦POI •PD*I + P031*«2 1 

♦ 1 I * ■ TO* | PO 1 I * P D I 1 P 8 9 ♦ P 0 1 6P61 • P D 6 1 ♦ P D 1 •P04IP69*P0 1P6I*PD4C*2*PD31 
•P031P89 11/4.0 

DANP69 *Cl R»R2KPP69»S*T A 3 3 P 
DAN * DAMPS* 


ELSEIF ( CNO ( I I . J J , AA , I M 2 , JP 1 , K 1 J THEN 
PD 14 P 91 * A J 2 ( J ) / 2 . O 

P 0 4 4 P 9 1 * A J 2 ( J > * X I Y I P ( J . IM 2 1 / 2 . 0 

PDI 3 P 9 1 * A J 2 ( J ) / 2 . O 

TO* ( S 1 • ( PD 1 4*PD83 + P03»P046*P033**2 | ♦ 1 | •■ (C2* 1 ) 

T 1 *P 0 1 »*PD 63 P» 1 ♦ P D I IPS * •PD« 3 *P 03 *P 048 PS J 

A 2 APP 9 1 * (C 1 *G 2 *SC( IM 1 , J , K I * TO* T 1 * S+C 1 *C 2 * TO* T 1 1/4 .0 

DANP 91 •CIR*R 2 APP» 1 *S* TA 33 P 

DAN t 0 ANP 91 


ELSEIP ( CND ( I I . J J , AA . IM1 r JP 1 . A ) ) THEN 
PO 1 7P9 2 * A J 2 ( J ) / 2 . 0 

PO 1 SP9 2 • A J 2 [ J ) / 2 0 

P047P92 » AJ2 (J)*X1YIP(J 1 I M t 1 / 2 . O 

P049P92 « AJ2 ( J ) ■ X 1 YIP ( J , IM2 ) /2 . 0 

P062P12 * AJ2(J)/2.0 

P063P92 * AJ2U1/2.0 

T O * G 2 - 1 

T 1 * ( C I » ( PD 17*P062*PD2aPD<7 + P032«*2}*1 J • » TO 
T2«PDI7»P0l2P*2«-PDt7P92*PD62*P02*PD47P*2 
T 3 * G 1 * G 2 • T 1 * T 2 

T4* (Gt* | PD18*PDS3*PO3*P0*S*PD33»*3 ) ♦ 1 1 • » T O 
T5*PD 14*P063P92*PD 1 SP13*PD93*PD3*PD4SP1I 

R2APPi2*(SGIIM1,J,K)»|Cl«G2*T*»T5»S*T3)<*-G1»G2»SCll,J,K)«T1*T2*S + C1 
. ■G2*T4«T5*T3 1/4.0 

DANP92iCIA«A2APP»2»S*TA33P 
OAM s 0ANPI2 


ORIOiNAl PAC-'T ?S 
OF PVhM QUAliTY 


C P 9 3 


c-n 



4311 
• 3 S 7 . 
4311 
43SI . 
43 SO . 
43S 1 . 
4 3 S 3 . 

4313 . 

4314 . 
43SS . 
43 SI . 
4 3 S 7 . 
43SI . 
43 19 
4370 . 
437 1, 

4372 . 

4373 . 
4 374. 
4375 . 
4 3 7 S . 
4377 
4 3 7 S . 
437# . 
4 3 S O . 

4311 . 
4 3 S 2 . 
4 3*3. 
4 3*4 . 
4 3 * S . 
4 3*1. 
4 347. 
43«* . 
43*1 . 

4390 . 
431 1 . 

4312 . 
4 3 B 3 . 
43*4. 
4311 
4 3 B I . 

4 317. 
439* . 

4391 
4 400 
4 401. 
440 2. 

4403 . 

4404 

4405 . 
4401 . 

4 407. 
4404 . 
4401 . 

4 4 10. 

4411. 

4412. 

4413. 

4414. 

4415. 
44 1 S . 
4417. 
441*. 
*419. 
44 20. 

4 42 1. 
4422 . 
*4 23. 
4424 . 
*425 . 

442 S . 
*427 . 
4421. 
4429 
44 30. 

443 1. 
4432 
*433 . 
44 34 
4435 . 
44 35. 
4437 . 
443* . 
4431 . 

4 440. 

444 1. 
444 2 . 
4443 
4444. 
444 5. 
444 1 
4447 . 
4*4 * 

444 * . 

4 4 50 

445 1. 
44 52. 
44 53. 

4454 . 
445 5 . 

4455 . 

4 457. 
445* . 
445 9. 
*4 50 . 
449 1. 
4452 . 
44 13. 
*4 54. 
44 15. 
4411. 
4*57. 
44 54. 
44*5 . 
4*70 . 
447 1. 
*472 . 
4473 . 
*47* . 
4475 . 
4*75 . 
4*77 . 

4 4 7* . 
4479 . 
44*0 . 
*4*1. 
44*2 . 
*4*3 . 
4**4. 
44*5 . 

4 4**. 
44*7 . 


ELSEIF ( CND ( l I , J J . KK, I , JM , K I ) THEN 
>0 1**93 • A J 2 ( J J /2 . O 

>0 17*93 * A J 2 [ J ) / 2 . 0 

> D 4 • > I 3 « AJ2(J)*XlYI>(J,I)/2.0 

>047*93 * A J2 ( J I * X I Y I > | J , (Ml )/2.0 

>09 1*13 > A J 2 { J 1/2.0 

>0*2*13 « A J 2 ( J ) / 2 . O 

TO* G2 * 1 

T 1 * (Gl a {>01? a >D*2+>02 a *D47+>032**2)+1 )**TO 
T2*>017#>D*2>13 a >D17>93»>0«2*>02*>047>13 

A2K>>!3* I S C [ I , J , K ] * ( C 1 * C 2 * T 1*T2*S + G1>C2«(C1« f > D 1 » a >DS1*>0!*>D4*+ 

. > D 3 1 ■ • 2 ) ♦ 1 l**TO*(P0l **>051*93**0 15*93**05 l*>D1*>D45*93l )+G1*G2*SG 

. ( IH1 a J,K)*T1*T2*G1*G2*T1*T2)/4.0 

DANP13*CIA a K2K>>!3*S*TA33> 

DAN * 0 A N > 9 3 

tlSEIF I CNO ( I I , J J . KK , I > 1 , J* 1 , K )} THEN 
>0 19*9 4 • AJ2( JI/2.0 

*049*14 • A J2 ( J ) ■ X I Y I P ( J . I ) /2 . O 

*0*1*5* « A J 2 l J ) / 2 . O 

R2K**94*Gl a G2*5C( I , J ( K|*|C1* |>DtS**0St**01«*D4l*>D31a»2)*1 1 * * { C2 * 1 
) a (*Dl* a *D»1P9***01 l>94»>DS1*>D1 a >0AS>94)/4 .0 
0AN>94*CIR a R2K**9**S»TA33* 

DAN • 0 AN* 9 4 

9 

ELSEr* [CNO{ II , JJ . KK, IH2, JMI ,KP1 ) ] THEN 
* D 3 0 * 1 O C * - ( 1 . 0/2 . O* A J 1 ( J ) ) 

PDSOPIOS * * | 1 .0/2 . 0* A J 1 ( J ) a X I Y I * ( J . 1 M2 ] I 

*075* 1 05 * * I 1 . 0/ 2 . O- A J 1{ J { J 

TOi|Cl*l*D30*P07l a PDI5*PD$0'»*045*»2) a )J**!G2 , 1] 

T 1 *>03O a *D75> 105*PD30> 1 0I»*07I*PD 1 5**010* 10* 

R2K>* 1 OS * (G1 a C2 a SG( IM1 ,J ( KP 1 J »TO*T ! *S*C 1 *C2* TO* T I )/4 .0 
OflNP 10*«CIK*R2KPP 10**S a TA33* 

DAN * DAN* 1 05 


BLSEIF ( C NO { I I , J J , KK . I Ml , JM 1 . K* 1 ) ) THEN 
*029*107 * - ( 1 . 0/ 2 . O a AJ 1 [ J ) | 

-(1.0/2. O* A J t|j)| 

- ( 1 .0/2 . 0*4 J 1 (J|»XIYI*(J, IM1 J J 
■I I .0/2.O*AJ1(J|»xm*(j, IM2] J 
- ( 1 . 0/2 . 0 a A J 1 ( J ) | 

- ( 1 . 0/2 . O* A J 1 ( J | ) 


* 0 3 O N 10 7 

* D 5 f * 107 
*0*0* 1 07 
*074* 1 07 
*075* 107 
TO » G2 - 1 

T 1 • ( C 1 * ( >029**074**0 14>F059*>044a*2 J ♦ 1 |**TO 
T2 »>029*>074> 10T**02IP I O7 a >D74*>0 14**019* 107 
T3*C1*C2*T1»T2 

T4* (C 1 • ( >030**075**0 15 a *D»0**045* a 2 ) ♦ 1 )*<T0 
T5»*03O a *075* 107**030* 1 0T»*07I*PD 15 a *0*O* 107 

R2K**107»(*C( I M 1 , J , K * I )• |C1*C2 a T4*TJ*S«T3)+G1*G2»SC| I , J , KR 1 ) ■ T 1 * T2 
•S*Gt a C2 a T4*T5*T3)/*.0 
OAN* 107 *C !R a R2K>> 1 07»S»TA33* 

DAN t OAN* 1 07 


ELSE1F | CNO ( I 1 . JJ . KK , X , JM 1 . K* 1 ) J THEN 
*02**109 » - { 1 • 0/2 O* AJ 1 { J ) ) 

*029*10* * •(1.0/2.0«AJ1(J)) 

*05**10* * - ( 1 . 0/ 2 . O a A J 1 ( J ) a X 1 Y 1 * ( J . r ) ) 

*059*10* » • ( 1 .0/2 . O* A J 1 |J) a XIYI*(J, IMI ) ) 

*073* 1 O * i - ( 1 . 0/2 . O a AJ 1 ( J )J 
*07**10* • • ( l .0/2 .0»AJ1 (J) ) 

TO* C2 - 1 

T1»(GI*(P029*P074>P014*PO$1+PD4»**2)+1)**TO 
T2**D29 a *074P IO»+*02JMO»«PD74**D I4 b*059*1O* 

R2K >> 1 O * t (SGI I , J , K * 1 | • (GI*C2*T1*T2*S4G1 a C2» (G1« [>02* a >073**Dl3 a 
>05***D43 a *2}*l | * * TO* (P02» a >D73*1oa*>D2*>1O4 a *D73*>013 a >DSS*1O*) } 
. *C 1 a G2 a SC ( I M 1 , J , KP 1 J * T 1 *T2*G 1 * C2 • T 1 * T2 ) / 4 . O 
DAN>10**CIR*R2K>>10* a S a TA33> 

OAN > DAN* 1 O * 

9 

ELSE!* I CNO I I I . J J , KK , I * 1 , JM! , K* I )) THEN 
*02**109 * - ( 1 . 0/2 . O a AJ 1 ( J ) ) 

*059* 109 * - ( 1. 0/ 2 0* A J 1 ( J ) • X I Y I * | J , I ) | 

*073*109 • - ( 1 . 0/ 2 0«AJ 1 | J ) ) 

* 2 K > > 109 *G 1 *C2*SG ( I , J , KP 1 )»(C1 a (*02* a *073 a *013 a *05* a *0*3 aa 2) + 1 )■*( 
. C 2 * 1 J • ( *02* a *073* 1 O9*>02*> 109*>D73*>0 1 3 a *0$*> 1 09 ] /4 .0 
0ANP!O»iCll*R2KPP 10I*$*TA33P 
OAN * OAN* 109 


5LSEIF ( CNO ( I I . J J , KK , I M2 . J , KP 1 ) ) THIN 
*015*111 * OX II ( IM2 ) a S 

1 -AJ2(J)*AJ1 (J) 1/2.0 
A2K(K)/2.0 

I -A2K1KP1 ) + A 1 K I KP 1 ))/2.0 

OKI I( IM2 |«A1 Hi J, IM2) a S*( * A J 2 t J ) + A J 1 (J) ) * X I Y I > ( J . IM2 1 / 


OXI 1 ( I M2 I * X I Y I P | J , JM2 ) *$♦ I *AJ2|J)*AJ1 (J) J/2. 


*030* 1 1 1 
*033* 1 1 I 
*045* 1 1 1 
*0*0* I t 1 
. 2.0 
*075*1 1 1 
TO *C2 - 1 

T 1 MCI* ( P0 1»»POI3»P03*P04I*P033»*2 )*1 ) • * to 
T 2* ( Cl a ( >D30 a >07S*>0 I S* PDI0*PD4I* • 2 } ♦ l ) ■ a T O 

T3 »*030 a *075* I 1 1 *PD30P 1 1 J » PD7I**0 1 5*PD IOP 1 1 1 ♦* 0 15*1 1 1**0*O*2»*D4S a 
. *045* 1 1 1 

R2KPP1 11 »f C1»C2*5C( IM1 , J,KP1 )»T2*T3»*t2*GI<G2*$G( !M1 , J,K)*P033* 

. *033*1 11*T!*S*G1*G2aT2aT3*2aC1*G2 a >033 a >D33>1 1 1 * T 1 )/4.0 

DAN* 1 1 1 * C I *■ R2K ** 1 1 1 a S ■ TA3 3P 
OAN i DAN* 1 1 1 


ELSEIF I CND( I I , J J , KK , IM 1 , J , K* 1 ] | THEN 
*014*112 * DXII(IH!)*S 
OXI I ( IM2] 

I - A J 2 ( J ( * A J 1 { J ) ) / 2 0 
( • A J 2 (J ) ♦ A J 1 (J) ) / 2 . O 
A 2 K ( K | / 2 . 0 
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. P043"P043P1 14)*2*C1*C2*SG( I ,J,Kl*P031*PD31P1 14* (G1*(P016*PP81*PD1 

. *P046*P03 I ** 2 ) ♦ 1 I • * TO ) /4 . O 
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. P032X01 

T3«C 1 «C2«T 1 *T2 

T4*(Cl*[Pai4*POS3*P03»PO4a*PO33**2)*l)**TO 
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. P0S2X0 1 »P07*P022»POI7XO 1 ♦PO 2 2X0 1 *P0I7*2*P037* P 0 3 7 X D 1 ) J ♦SC I IM1.J.K 
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P044X0 1 

T4*C1*C2*TI*T7 

T* « ( C 1 ■ ( P 030* POTS *P0 1 S« P0IO-*P04»**2 ) ♦ I ) »*T0 
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* S ♦ 5 1 * C 2 ■ (C 1* (P024*P073*PO 13*P0SI»P043*«2 1*1 ) * * TO • (P02I*P073X01* 
P024X0 1 *P073*P0 13*10*1X0 1 ♦ P 0 13X0 1 *P054*2*P043*P043XD 1 } )*SG( IMI , J, 
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. OX I NFXD2/X I X I P ( J , I M2 ) 

P070XD2 * XI YIP ( JP I , 1 ) BOX I NFXD2«S/XI X I P ( JP1 . J )*XI YJP ( JP 1 . 1 )» 
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P 0 3 3 X 0 2 
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T3 *C 1 ■G2»T 1 » T2 
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( P(dP (3 -PS* • PS • ) ) / 2 . O ) 

P C 5 3 * A 1U( J . IM1 ) • { OX I I ( IM1 ) • 1 P(2«S*P«3 ) +OXIMF/XI X I P ( J , IM1 ) ) ♦ 

. XIYIPIJ, INI ) • l X I Y I P ( J . I M 1 ) •OXtNF*S/XIXIP( J, IM1 J>|AJ2(J)*(P(dP(7- 
. FI3 - FI2 ) + AJ 1 (J|*|Fa3^FI2’F$»-FS7) 1/2.0) 

PC54 * A 1 IP ( J , IM2 ) » ( OX I !( IM2 ) • I P*1 ■»*P(2 ) ♦OXIHF/X I X IP ( J . IM2 ) ) ♦ 

. XIYIPIJ, IM2 I •(XIYIPtJ, tM2)«0XINF*S/XIXIF( J, IM2)-MAJ2(J)»(P(7*P((- 
. PI2 ■ P t 1 J *AJ 1 ( J ) * ( P I2» P I 1 * FS 7 * FS * ) 1/2 .0) 

PC81 * XIYIPtJ, I )*(DXII( I )b(P( 9*$ + P99 ) *0X1 NF/X I X I P ( J , I ) l + X I Y I F I J , I 
)*OXINF*S/XIXIF( J, I )♦ | A J 2 { J ) * ( FM + F J 3 *P99 *P88 ) ♦ A J 1 |J)*(P(9*P((- 
F84*Ft3) 1/2 O 

PC92 * XI Y I P ( J , 1M1 ) • ( DX I I 1 IM1 ) • ( P(?«S+P(( ) ♦OXIMF/XIXIP ( J , IM1 ) ) ♦ 

. XIYIPtJ, IMI )»0XINF*S/X1XIF| J,IM1 )*|AJ2lJ)»(P93*Pt2*P((-P(7)+AJ1 (J 
) • ( P(dP(7 - P*3 - P82 1 ) / 2 . 0 

P C 9 3 * X I Y I P ( J , I M2 l « ( OX 1 I{ IM2 ) • ( P98-S ♦FIT ) +0X I NF/X I X IP ( J . IM2 ) ) ♦ 

. X 1 Y I P ( J . 1M2)*0KXNF*S/X1XIP(J, IM2|4>lAJ2(J)MP*2*Pil-P*7-P(()*AJ1 (J 
) * ( PB7*-P8* - P8 2 - P8 1 ) ) /2 . 0 

PCI7 * XIYIPIJ, I ) ■ I DX I X(I)*(P(3*S + P94)*0X1NF/XIXIP(J, I ) |*XI YIP| J, 1 
)»OXINF*S/X[XIP|J, I |4(AJ2(J)»(FI*+FI|*FI4-FI3) *AJ tlJ)«(P(44P(3- 
. PS9-P5S ) ) /2 . 0 

PCI* * X I Y IP l J , IMI | • ( OX I I ( I Ml | • | PI2K + P83 ) +0X I NF/X l XI P | J . IM1 ) ) ♦ 

. XIYIP(J, IMI )«OXINF«S/XtXIP(J, INI )*(AJ2[J)*(P((+PI7»P(3-P(2]*AJ1 (J 
. ) * [ P 13 + P (2 - PS8 - PS7 } ) /2 . 0 

FCIS * XIYIPIJ, IM2JM0XII ( IM2)» |Pd «S*P(2 l+OXINF/XIX'IPI J. IM2) )♦ 

. XIYIPIJ, I M2 )“OXINP*S/XIXIP(J, IM2) + (AJ2(J)*(P(7 + P(dP(2*Pd ) *A J 1 (J 
)« I P 12 + P • 1 -P(7*PS«) 1/2.0 
C 

C R2KW.CIX 
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TO « |Sl*{PC17*PC(2+PC2*PC(7+PC32 k *2l+1 ) • • C 2 
T1i|C1*(PCII*PC(3*PC3»PC4t^FC33**2l*l)»»C2 
T2* ( C 1 • ( PCS3*PCdPC23*PC(dPC3(>*2 | ♦ 1 ) ■«02 
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T3«(G1a|PCS*»PC9«>PC24*PC49*FC39»»2}*1|a*G2 

R2KW* (SCt I Ml , J.KM1 }■ (T3»S+T2)+SC( I , J , KM 1 )a(T2*S+( Cl* I PC52*PC7+PC27 
. »PC«7*PC37»«21»1 ) « • 62 ) +SB ( IM1 , J , K) * | T 1 »S*T& | ♦•• ( I , J . K) « I T0*S» ( C I • 

(9C1l«PCIl*9C1»9CU*9C31**2]*1)»»C2}»T3*T2*T1*T0|/4.O 

cm • c i pic i j ) 

c 

C 0AN0F13 

C XD 1 

9C1X01 • OXINFXDI/XIXIPfJ, I ) 

PC2XD1 » OX I NFXO 1 /X l X IP ( J , IM1 ) 

P C 3 X D t * OX I MFXD 1 /X I X I P i J . IM2 ) 

PC7XD1 * ©X I NFXO 1 /X I X I P f J . I 1 
P C S X D 1 • OX I NFXO 1 /X I X I P ( J , IM1 J 

PC9XD1 * 0KIMFX01/XIXIP(J, I M2 } 

P C 1 • X 0 1 « XI YI P l J , r | «OX I NFXO 1 -S/XIXIP! J , n 

PC17XD1 • XI Y1M J. IM1 )-OXtNFX01*S/XIXIP{ J. 1MI ) 

PC14XD1 * X I Y I P ( J . I M2 ) »0X I NFXO 1 »* /X 1 X 1 P [ J . I M2 ) 

PC22XD1 « XI YIP| J , 1) *0X I NFXD1 »S/X1X1 P 1 J. I | 

PC23XD! * X J Y t P ( J , IM1 ) *0X 1 NFXO 1 *S/X I X I P { J , I M 1 ) 

PC24XD1 * X I Y I P [ J . 1 M2 ) * OX I NFXO 1 «S/X I X I P { J . I M2 ) 

PCD 1 XO 1 * 02 I NFXD l 

PC32X0 1 * 02 I NFXD 1 

PC33X01 » 02INFX01 

PC37X0 1 * 02 I NFXD 1 

PC34X0 1 * 02 I NFXO 1 

PC39XD 1 * 02 1 NFXO 1 

PC4IX01 * X t Y I P ( J , I )«»2«OXINFX01»S/XIXIP(J, I ) *A 1 1*1 J . I )*OXINFX01/ 

. X I X I P I J . I ) 

PC47X01 * X I Y 1 P ( J , INI )**2*0XINFXD1*S/XIXIP(J, I M 1 ) ♦ A 1 1 R ( J , I M 1 ) » 

. OX I NFXO 1 / X [ X 1 P ( J , I M 1 ) 

PC44XD1 * X I Y I P ( J , IM2 ) • *2*©X I NFXO I *S/X I X I P ( J . IM2 ) +A 1 1 *( J , I M2 ) * 

OX I NFXO 1 /X I X I P ( J . IH2 ) 

PCS2XD1 « X I Y I P ( J , I )»*2*OX]NFX01»S/XIXIP(J, I ) *A 1 1 R { J , I)»©XINFX01/ 

. X l X I P ( J . I ) 

PC53X01 » X 1 V I P I J , I M 1 ) » « 2 »0X I NFXO 1 *5/X I X r P ( J . I Ml ) *A 1 1 R ( J , I Ml | « 

. OX 1 NF XO 1 /X I X IP I J . I Mt J 

PCS4XD1 * X I Y I P [ J , I M2 ) * • 2« OX I NFXO 1 »S/X I X I P ( J , IM2 J *A 1 1 R ( J , I M2 I * 

. 0X]NFXD1/XIXIP{J, ]M2) 

PCI1X01 * X I Y I P ( J , I )iOXIMFXDI»S/XIXIP(J, I ) * X I Y I P ( J , I | *0X I NF XO 1 / 

X 1 X I P ( J . I ) 

PCI2X01 » X I Y I P [ J , I M 1 ) »OX I NF XO 1 *S/X I X IP ( J , I M 1 | ♦ X I Y I P ( J . I Ml ) * 

. 0X[NFXD1/K!X]P{J.IM1) 

PCS3X01 ■ X I Y I P ( J . IM2 ) »0X I NFXD 1 »S/X I X IP [ J , I M2 ] *1 I Y I P ( J . I M2 | * 

. OX I NPXO 1/XIXIPlJ, I M2 } 

P C t 7 X 0 1 i X I Y I P ! J , I |»OXINFX01»S/XlXIP{J, 1 }♦*! V I P ( J , 1 ] *0X I NFXD 1 / 

. X I X 1 PJ J, I I 

PC44XD1 * X I Y I P ( J , IM1 ) *0X I NFXO 1 *S/X I X I P ( J , I Ml ) *X I Y I P ( J , IM I ) « 

. OXINPXDI/XIXIPlJ, IM) } 

P C 6 • X D I * X I Y IP ( J , I M2 J « OX I NF X 0 1 «S/X 1 X I P ( J . I M2 ) * X I Y I P ( J . IM2 ) * 

. OX I NFX 0 1 /X I X I P I J , I M2 I 
TO * C2 • 1 

T1 «(C1*(PC17«PCI2*PC2»PC47YPCJ2»»2|p1)»»T0 

T2«PC17«PCI2X01*PC 17X01»PC*2+PC2*PC47XO 1 *PC2XD 1 ■ PC47*2*PC32* 

. PC32X01 

T 3 * C 1 * C 2 • T 1 * T 2 

T 4 * ( Cl* I PC14»PC43 + PC3»PC44 + PC33**2)*1 ) ■ ■ 7 0 

TS »PC 1 4*PC43XD l+PC 1 4X0 t *PCI3>PC3«PC44X0 1 ♦ P C 3 X 0 1*PC44+2“PC33« 

. PC33XD1 

T • » l C 1 ■ ( PC53*PC4+ , PC23*PC54*PC34* *2 )♦ 1 } » • TO 

T7 ■ PC*3»PC4X0 1 + PC52X01 »PC4*PC23»PC44X0 1+PC23X0 1 *PCIH2*PC3t* 

P C 3 4 X D 1 

T4*C1*G2*T9*T7 

T9* l G 1 * (PC54*PC5*PC24«PCS4*PC39»»2)^1 ) • • T 0 

T 1 O* PC54*PC9X0 I * P C 5 4 X D 1 *PCI^PC24*PCIIX0 1 ♦ P C 2 4 X 0 1 aPC4i+2*PC39» 

. PC39X0 1 

42KWXD1 i |SC! I M 1 , J , XMI J»(C1»C2«TI*T10«S*T4)*SC[] , J , KH1 )»(Ct*C2«T*» 
T7*S*C1*C2*(C1* lPCS2*PC7*PC2}«PC»7»»C37**J|t1 I««TO»(FCS2»PC7XDtt 
. PC52X0 1 *PC7>PC22aPC«7XD ! + PC22X0 1 ■PCI7*2*PC37«PC37X0 1 ) J «■ 5 G | IM1 ,J,K 
)*(C1*C2*T4*TI»4*T:|tSC| 1 , J,X)»|CI«G2*T1*T2*S*C1»C2*(61*|PC1I« 
PCI1*PC1*PC4<-*PC31»*2)*1 )»»TO*(PC1««PCI1X01*^CIIX01*PCI1*PC1* 

. PC4»X01*P:1X01*PC*I*2*PC31*PC31X01 ) ]*G1»G2*T»*TtOM4*G1*C2*T4*T5+ 

. T 3 ) / 4 . O 

AN3XD1 • C IR»R2KWXD 1 » TA33M 

1 XO 2 

PC1X02 » OXINFX02/X IX I P | J. 1 1 
PC2XD2 * OX I NFXO 2 /X I X I P ( J , I M 1 ) 

PC3XD2 » OK ! NFX02/X 1 X I P | J , J M2 I 
PC7X02 * OX I NFX02 } X 1 X I P ( J , J ) 

PC4X02 * OX INFX02/X IX IP ( J. IM1 J 
PC9X02 * OX I NF X02 / X I X I P ( J , I M2 ) 

PCKXD2 * XI YIP( J , I ) *0X I NFXD2-S/XI X IP( J, I) 

PC17X02 * X I Y I P ( J , I Ml ) *QX 1 NF X02« S/ X I X I P { J . I Ml ) 

PC14XD2 • XI YIP I J. JM2) *0XINFX02»5/XIX|P( J, I M2 J 
PC22X02 * X I r I P | J . I ) aox I NFX 0 2 » S /X IX tP l J , 1 J 

PC23X02 * X I Y I P ( J , I M 1 ) ■ OX I NF XD2 ■ $ / X l X I P ( J . I M 1 ] 

PC24X02 * X I Y I P ( J . I M2 ) * 0 X I NF XD2»S / X TX I P ( J . 1 M2 ] 

P C 3 1X02 * OZ1NFX02 

PC32X02 * 0Z1NFXD2 

PC33X02 * 0IINFX02 

PC37XD2 * 0ZINFXD2 
PC34XD2 * QZINFXD2 
PC39X02 * 0ZINFXD2 

PC44X02 » X I Y I P ( J , I )*«2*0X1NFX02*5/XIXIP| J, I )*At 1R(J, I)*OXINFXD2/ 

. X I X J P l J , I ) 

PC47X02 • X I Y I P ( J , IM 1 ) *• 2 »0X I NFX02-S /X I X I P | J , IM 1 ) + A 1 t R ( J , IM1 ] * 

. OXINPX02/XI X I P [ J , I M 1 | 

P C 4 • X D 2 * X 1 Y I P ( J , IM2)**2*OXINFK02*S/XIXIP[J, I M2 ) * A 1 1R|J, I M2 ) ■ 

. OX 1 NF X02/X I X I P 1 J , I M2 ) 

PC52XD2 * XI Y IP I J . I)»*2»0XINFXD2»S/XIX1P(J. I ) *A 1 1 R ( J , I)»OXINFX02/ 

. X I X I P [ J , I ) 

PCI3X02 * XI YIP{ J , 1M1 )»*2»0XINFXD2»S/XIXIP( J, IM1 J*A1 1R{ J, IM1 )• 

. OX1NFX02/XIX I P l J , I M 1 ) 

PC54X02 * X I Y IP { J . I M2 ) • ■ 2-OX I NFXD2-S/X I X I P ( J . IM2 ) ♦ A 1 1 R( J , I M2 ) * 

. OX I NPXD2/X I X I P { J . I M2 ) 

P C S 1 X D 2 * X I Y I P ( J , I )»OXINFX02»5/XIX]P[J, I ) ♦ X I Y I P ( J , ! ) *0X I NFXD2/ 

. X I X I P ( J . I ) 

PCI2XD2 » X I Y I P { J . IM1 ) *0X INFX02-S /X 1 X I P{ J. IM1 ) ♦ X I Y I P { J IM1)« 

. OX INFXD2/X I X IP ( J , I M 1 ) 

PCS3X02 * X I Y I P ( J , IM2 > *0X I NFX02*S/X I X I P ( J , I M2 ) *X I Y I P ( J , IM2 ) ■ 

. OX I NFX02/X I X I P ( J . IM2 J 

PC#7X02 * XI YIP ( J , I )»OXINFXD2»5/XIXIP(J J I)*XIYIP(J, I }«©XINFX02/ 

. X IX I P ( J , I } 

PCS4XD2 * X 1 Y I P l J , IM1 ) *0X I NFX02*S/X IX IP (J. IM1 ) ♦X I T IP ( J , IM1 ) • 

. OX I NFXD2/X I X I P [ J , I Ml ) 

PC49X02 * X I Y IP ( j , I m2 ) *OX I NFXD2»S/X I X IP ( J , IM2 1 *X I Y I P ( J . I M2 ) « 

. OX I NPX02/X I X I P | J . I M2 ) 

TO* C2 - 1 

T! » tCl* (PC 17»PC*2 + PC2*PC47 + PC32*a2)+1 |**TO 

T2*PC17«PC42X02 + PCl7X02-PC»2-**PC2aPC47X02*PC2X02aPC47»2»PC32a 
. PC32X02 

T3«6I*C2*TlaT2 

T4* (Cl* |PC1I*PCI3^PC3*PC4I*PC 3*3 ■ • 2 | ♦ 1 )«*TO 

TS*PC1*aPC43X02*PC14X02*PC43^PC3*PC44XD2»PC3XD2»PC44+2»PC33* 

. PC33XD2 

TH|C!«|PCS3*PC4*PCZ3*PC*44PC34*«2|»1)««TO 

T7*PC53»PC4X02>PC53X02«PC4*PC23aPC«4X02*PC23XD2*PC*4+2»PC34a 
. PC34X02 

T**C1*C2*T«*T7 

Tt« (Cl*(PC5A*PCt*PC24apcii»PC3*»a2)4l ) a « T 0 

T1O*PC54.pC9XD2*PC54X02«PC9*PC24«PC»9X02+PC24X02apC«9*2apC39a 
. PC39X02 

R2KWX0 2 « (SCI IM1 , J , KM1 )*(C1»C2*T9*T10»S*TI)+SC( I , J, KM1 )*{Cl*G2*TC* 
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. T7*S*C1*G2* ( Cl* [ *C52**C7+*C22»*CI7^*C37* *2 J ♦ 1 I * » T 0 * ( PC52*PC7XD2* 

. *CS2XD2«PC7*PC22»PCS7XD2*PC22X02»PCi7*2«l»C37*PC37XD2J )+SG| IM1 . J. K 

J • ( Cl «C2*T4*T5*S*T3)45Ct I . J . K ) * l G 1 * G 2 • T I*T2*5 + C1*G2*(G1* (PCI* - 
. *Ci1**C1>*C4l+*C3t**2 J ♦ 1 ) ■ * TO ■ (PCI •»PC*1 X 0 2 ♦ * C 1 •X02**C61^*C 1 • 

. PC44X02*PC1XD2-PC44*2*PC3!“*C31X02))+Gl*G2»T4«T1O*T»*Gl»G2*T4»TS<*' 

. T3J/4.0 

AN3XD2 • CIR*42KWX02*TA33M 
END I F 

IF ( K . EO - KLOW . AND . I . GT . ITE . AND . J . I E . JTPM1 1 THEN 


Ptl * PlJ.KH1.IM2) 

*52 » P l J . KM 1 . IM1 ) 

*53 * P ( J . KM 1 , I | 

P 44 * P ( J , KM 1 . I P 1 ) 

*4 1 * * I JM 1 , K , I M2 ) 

*42 * * ( JM I , K . I M 1 ) 

*43 * * ( JM 1 . K , I ) 

*4* * * ( JM1 , K , I* 1 ) 

*45 > * ( J , K , I M2 ) 

*47 * * ( J . K , I M 1 ) 

*44 * * l J , K , I ) 

*41 * * ( J . K , I* 1 l 

*9 1 • * t J* 1 , K , IM2 ) 

*92 * *(J*1,K,IM1) 

*93 * * I J* 1 , K , I ) 

*9* * * ( J* 1 , K , I * 1 ) 

* 101 * P { JM 1 , KP 1 , IM2) 

* 107 • * ( JM1 , KP 1 . IMI ) 

*104 • PIJM1.KP1.IJ 

* 1 09 * P l JM 1 . KP 1 , I P 1 ) 

Pill • PlJ.KP1.IM2) 

P 11 2 » PtJ.KP1.lMlJ 

*113 * P(J.KPI.I) 

PI II • * ( J , KP 1 . I P 1 ) 

P 1 1 6 * P ( JP 1 , KP 1 . I M2 ) 

pin » p t j p i , kp i , imi ) 

Pill * PlJP1.KP1.il 
P 1 1 9 * P ( J* 1 , KP 1 , I * 1 ) 

P 1 34 » P { J , KP2 , 1 M2 I 

P 1 3 7 * P(J,KP2, IMI J 

PI 34 * P ( J , K P 2 , I ) 

P 1 3 9 • P(J,KP2, IP1 | 

P t 42 • P ( J . KLOW- 2 . ITE) 

P 1 43 * P { J . KL OW* 1 . I TE J 

P 1 4 4 » P(J.KLOW.ITE) 

P 1 45 « P ( J , KUP . 1 TE I 

P 1 4 6 * P ( J , KUP+ 1 . I TE ) 

P 1 47 » P ( J , KUP* 2 . ITE) 

* D 

* D 1 * DX I 1 ( I ) » I P44»S**49 J +OX I NP/X 1 X I P { J . I ) 

P 0 2 * DX I l ( IMI j • ( *47* S ♦*• 4 1 *0X I NP/X I X 1 * l J , I Ml | 

P 0 3 * OXI 1 { |M2)« ( P45»S**I7 j ♦OX I NF /X I X I * ( J. IM2 J 

*013 » OX I I ( I) » ( * 1 1 3* $♦* 1 1 * ) *OK I NF/X I X I P ( J . I ) 
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R2KPX0 2 * ( SG ( 1 Ml , J.KM ) * | C « * C2 • T 9* T ) O . S • T4 ) +S C ( I , J . KP 1 )*(CI»C2»TI» 
T7»S<-G1»G2*£C1*|P02I , PD73 + PD13*PD5B*PD43*'2) + 1)»»TO«|PD2B*P073X02 
♦PD2BX02*PD73*PD 1 3* P059XD2+PD 1 3XD2»PDSB*2*PD43*PD43XD2 ) )+SC( 1M1 , J 
,K)»(C1*C2*T4*T5*S+T3)+SGlI,J,IC)»|G1*C2*Tl*T2"S>Gl*G2*(Gf*|PD1B“ 
PD6 1 ♦ P 0 1 »P04B*PD31**2) + 1 ) « « TO • |PD1 6»PDI1X02*PD19XD2»PDS1+PDI» 
PD4BX02+P0 IXD2*P04I*2*P031*P031X02 ) )+C1*G2»T9*T10*T6+G1*G2“T4*T5* 
T 3 ) / 4 .0 

A N 4 X D 2 » C 1 R*R2KPX02*S*TA33P 
END I T 

RHSM * R E 5 X 0 1 * AN1XD1 + AN2X01 ♦ AN3XD1 AN4X01 

OHS A * RESX02 ♦ AN1XD2 ♦ AM2X02 ♦ AN3X02 ♦ AN4XD2 

9 MS T i A N 1 X 0 3 ♦ AN 2 X 0 3 

RHS C * AN 1 X D 4 ♦ AN2X04 

RMSL * AN 1 XDS ♦ AN2X0S 


RETURN 

END 

SUBROUTINE RE( J, I , K , J J . II . KX , M) 

RE . P OR 

I NCLUDE ( I NTROM J 

IP ICNDC I l , JJ,KK, 1M2, J.KM2)) THEN 
M » 1 

ELSE1P ( CND ( I I . J J . tCK , IM1 . J . KM2 ) ) THEN 


ELSEIP t C N 0 { II , JJ , KR , I , J, KM2 } ) THEN 
M * 1 

ELSE! P t CNO ( I I , JJ , KK , IP 1 . J . KM2 ) ) THEN 
M * 1 

ELSEIP I CNO t I I . J J . KK , IM2 . JM1 . KMI ) J THEN 
M * 1 

ELSE IP ( C N 0 ( I I , JJ , KK , IM1 , JM1 , KMI ) ] THEN 
M a 1 

eiSEIP I C NO ( I I , JJ , KK , t , JM1 , KMI ) I THEN 
M i 1 

ELSEIP ( CNO ( I I , JJ . KK . r P 1 . JMt , KMI ) ) THEN 
M ■ 1 

ELSEIP I CND I I l , J J , KK . I M2 , J . KMI ] ) THEN 
M • 1 

ELSEIP 1 CND l I I , J J , KK , INI . J . KMI )) THEN 
M > 1 

ELSEIP ( CND t I I . J J . KK . I . J . KMI ) ) THEN 
M « 1 

ELSEIP | CND { I I . J J . KK . ! P 1 . J . KMI ) J THEN 
M « 1 

ELSEIP I CND t I 1 , J J , KK , I M2 , JP 1 . KMI ) ) THEN 
M * 1 

ELSEIP ( CND ( I 1 , J J , KK , I M 1 , JP 1 . KMI ) ) THEN 
M • 1 

ELSEIP ( CND ( I I , J J , KK , I , JP 1 , KMI ) ) THEN 
M • 1 

ELSEIP ( CND ( I 1 , J J , KK . IP 1 . JP ! . KMI ) | THEN 
M a 1 

ELSEIP ( CNO { I I . J J , KK , I M2 . JM2 , K j ) THEN 
M a 1 

ELSEIP t CNO { I I . JJ . KK , 1 Ml . JM2 , K ] ) THEN 
M a 1 

ELSEIP ( CND ( I I , JJ, KK, I , JM2 , K ) ] THEN 
M « 1 

ELSEIP t CND ( I I , J J . KK . I P 1 . JM2 . K J ) THEN 
M a 1 

ELSEIP ( CNO [ 1 1 , J J , KK , IM2 . JM1 . K )) THEN 
M a 1 

ELSEIP ( CNO { I I . JJ, KK , 1M1 , JM1 , KJ ) THEN 
M * 1 

ELSEIP ( CNO ( I I , JJ , KK . I . JM1 , K ) J THEN 

M a 1 

ELSEIP ( CNO ( I I , JJ , KK . IP 1 , JM1 , K) ) THEN 
M > 1 

ELSEIP ( CND ( I I , J J , KK . I M2 . J , K ) ) THEN 
M * 1 

ELSEIP ( CKO { I l , J J . KK. 1M1 . J, K ) ) THEN 


ELSEIF t CND ( I I , J J , KK, I . J . K | ) THEN 
M a 1 


ELSEIP l CND ( I I . J J , KK . 1 P 1 , J , K )) THEN 
M • 1 


ELSEIP t CND { I I . J J . KK . I M2 , JP 1 . K ) ) THEN 
M a 1 


ELSEIP ( CNO ( I I , J J . KK , I Ml . JP 1 . K ) ) THEN 
M a 1 


ELSEIF ( CNO ( I I , J J , KK , I , JP1 , K J ) THEN 
M a 1 


ELSEIF I CNO( I I , JJ.KK, IP1 . JP1 ,K) ) THEN 
M * 1 


ELSEIF l CNO ( I I , J J . KK . !M2 , JP2 , K } } THIN 
Mai 


ELSEIF ( CNO I I I , JJ . KK, IM1 , JP2, K J | THEN 
M a 1 


ELSEIF l CNO l I I , JJ . KK , I . JP2 . K J J THEN 


ELSEIF ( CND ( I I , J J . KK . IP 1 , JP2 . K J 1 THEN 
M a 1 



'^L ik* 

:■;? ■pn » f ; ...... . 
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• 77* . 
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• 7*0. 
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• 71* . 
17*0 . 

• 7*1. 

• 7*2 

• 793 . 

• 7*4 . 

• 7 • S . 

• 7* « . 
*7*7 . 

• 7** . 

• 7*1 . 

• •00 . 
I«0t . 
1102 . 

• •03 . 

• •04 . 
1*0* . 
KOI . 

• *07 . 

• *0* . 

• •09 . 

• •10. 
C* 1 1 . 

• •12. 

• •13. 

• * 1 4 . 

• « 1 S . 

• •IS. 

• * I 7 . 

■ • i * . 

• *i*. 

• * 20 . 

■ * 2 1 . 

• * 2 2 . 

• * 2 3 

■ 124 

• •2 5 . 
1*2 1 

• 127 . 

• * 2 * . 
1*2* . 
1*30 . 

• * 3 1 . 

• •32 . 

• * 3 3 . 

■ •34 . 

• * 3 • . 

• • 3 ft . 

• •37 . 

• ■ 3 ft . 

• • 3 S . 

• •40 . 

• •4 1 . 

• •42 . 

• •43 . 

■ 44 4 . 

• 44$ . 
1*41 . 
1*47 . 

• 44* . 
(Ml . 

• ISO. 

• •« 1 . 

• ••2 . 

■ *•3 . 

• •*4 . 

• •Si . 

Iltl . 

• ■*7 . 
till . 

• •SI . 

• •SO . 

• •• 1 . 

• •<2 . 

• ••3 . 


ELSEIF ( CND [ tl , J J , KK , IM2 , JM1 , KP t } ) THEN 
M a 1 

C R 107 

ILSeiF I CND ( I I , J J , KK , IM1 , JMl , KR 1 ) J THEN 
M « 1 

C PIOI 

EHEIF ICHDIIl.JJ.KKJ, JM1.KF1IJ THEN 
M * 1 

C RIO* 

ELSEIF ( CNO ( I I , J J , KK , I P 1 . JMl . KR I ] ) THEN 
M * l 

C Pill 

ELSEIF ( CND ( I I , J J . KtC . IM2 . J . KP 1 ) ) THEN 
M * I 

C P 1 t 2 

ELSEIF ( CNO [ 1 I , JJ , KK, INI , J, KP 1 ) | THEN 
M * 1 

C P 1 1 3 

ELSEIF ( C M 0 ( t 1 , J J , KK , I , J , KP I ] ) THEN 
M • 1 

C F 1 1 4 

ELSEIF |CNO| I 1 , JJ,KK, IP1.J.KP1 ) ) THEN 
M a 1 

C PltS 

ELSEIF (CNDl ] I , JJ , KK, ! M2 . JP 1 , KR 1 ) J THEN 
M i 1 

C P 11 7 

ELSEIF ( CND ( 1 I . J J , KK , IM1 . JR 1 , KR 1 )) THEN 
M « 1 

C P I 1 • 

ELSEIF l CND (I l , J J . KK . I , JP 1 , KF 1 ) ) THEN 
M r 1 

C P 1 1 * 

ELSEIF l CND ( I I , J J , KK . I P 1 , JP 1 , KP I JJ THEN 
M * 1 

C P 1 3K 

ELSEIF | CND ( I I , J J . KK , 1 M2 . J . KP2 ) ) THEN 
M ■ I 

C P 1 37 

ELSEIF l CNO I I I , J J , KK , I Ml , J , KP2 1 ) THEN 
H * t 

C P 1 3* 

ELSEIF ( CNO 1 1 I , J J , KK , I , J . KP2 ) I THEN 
M a 1 

C P 1 3* 

ELSEIF ( CND (I I . J J . KK , I P 1 , J . KP2 ) I THEN 
M • 1 

END 1 P 
C 

RETURN 

ENO 

SUBROUTINE R1E(J, 1 . K , J J, I I , KK , MM ) 

C R1E.F0R 

C 

I NCL UOE (I NTROM I 

C PS 1 

IF ( CNO ( I I , J J , KK . 1 M2 , JMl . K J ) THEN 
MM « 1 

C Pi 2 

ELSEIF t CND [ I I , J J , KK . IM1 , JMl . K J| THEN 
MM a 1 

C P 13 

ELSEIF (CND{ I I , JJ, KK, I , JM I , K ) ] THEN 
MM * 1 

C P • 4 

ELSEIF I CND { I I . J J , KK , 1 P 1 . JMl , K )) THIN 
MM i I 

C Pll 

ELSEIF I CNO ( II . J J , KK , J M2 . J , K ) ) THEN 
MM i 1 

C P * 7 

ELSEIF ( CNO ( I I , J J , KK . ZM 1 , J . K )) THEN 
MM « 1 

C P*S 

ELSEIF (CNO{ II ,JJ,KK, I , J , K ) J THEN 
MM * 1 

C PS* 

ELSEIF (CNO! I I , JJ. KK. IP1 . J.Kj | THEN 
MM * 1 

C P* 1 

ELSEIF | CND ( I I . J J , KK , I M2 , JP 1 , K )) THEN 
MM a 1 

C P* 2 

ELSEIF ( CNO ( I I , JJ . KK , IM1 , JR I 4 K I) THEN 
MM i 1 

C PS 3 

ELSEIF ( CNO ( I I , J J , KK. I , JR 1 . K J J THEN 
MM t 1 

C R* 4 

ELSEJF ( CN9{ I I . J J . KK . IR 1 . JR 1 . K) J THEN 
MM i 1 

C R lOI 

ELSEIF ( CND [ I I , J J . KK , IM2 , JMl . KP I ) ) THEN 
MM i 1 

C P 1 07 

ELSEIF ( CND ( I I , J J , KK , IM1 , JMl , KP 1 ) J THEN 
MM a 1 

C P 1 O* 

ELSEIF [ CNO ( I I , J J , KK . I , JM 1 . KP 1 ) J THEN 
MM > 1 

C P 1 OS 

ELSEIF f CNO ( I I , J J , KK , IP 1 . JMl , KP 1 | ) THEN 
MM ■ 1 

C Pill 

ELSEIF | CNO ( I 1 . J J , KK . |M2 . J , KP I I } THEN 
MM a 1 

C P 1 1 2 

ELSEIF ( CNO [ I I , J J . KK , IM1 . J . KP 1 ) ) THEN 
MM * 1 

C P 1 1 3 

ELSEIF ( CNO ( I I , J J , KK . I , J , KP 1 ) ) THEN 
MM ■ 1 

C P 1 1 4 

ELSEIF ( CND ( I I , J J . KK, I P 1 , J , KP 1 }) THEN 
MM * 1 

C Pill 

ELSEIF (CNO( I I . JJ, KK, IM2, JR1 . KR 1 ) ) THEN 
MM ■ 1 

C P 1 1 7 

ELSEIF ( CNO ( I 1 , J J , KK . IM1 . JF 1 . KP 1 )) THIN 
MM ■ t 

C P 1 1 ft 

ELSEIF ( CNO ( 1 I . J J . KK , I , JP 1 , KP 1 ) } THEN 
MM t 1 

C Pll* 

ELSEIF ( CND ( I I . J J . KK . I P 1 . JR 1 , KR I )) THEN 
MM • 1 

C R 1 3 3 

ELSEIF l CNO ( 1 I , J J . KK , I , JMl , KR2 ) I THEN 
MM » 1 

C R 1 3ft 

ELSEIF [ CND ( I I . JJ . KK , IM2 f J . KR2 ) ) THEN 
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ELSE I F ( CNO UI.JJ.KK 
MM * 


ELSE [ F ( CNO [ I I , JJ . KK 

MM 


ELSEIF ( CNO( 1I.JJ.KK 
MM ■ 


ELSEIF ( CNO (II.JJ.KK 
MM I 


E L S E r F l CNO I I I * JJ . KK 
MM 


ELSEIF t CND [II.JJ.KK 


ELSEIF ( CND ( 1 I . J J , KK 
MM * 


ELSEIF l CND ( 1 I . JJ , KK 
MM » 

END I F 


IM 1 , J , KP2 | J THEN 
I,J, K P 2 ) ] THEN 
IM.J.KPJ)) THEN 
I , JP 1 , KP2 ) ) THEN 
I M2 , J , K + 3 ) ) THEN 
IM1 . J , K*3 ) ) THEN 
1 . J , K + 3 ) ) THEN 
I P 1 , J , K ♦ 3 ) ) THEN 


RETURN 

END 

SUBROUTINE R2E ( J . I , K 
R2E . FOR 


JJ. II . K K , MM | 


INCLUDE ( I NTROM) 

IF ( CNO l I I , JJ , KK. IM2 , 


ELSEIF | CND (II.JJ.KK 
MM * 1 


ELSEIF ( CND ( I I , JJ . KK 


ELSEIF (CND( II ,JJ,KK 
MM ' 1 


ELSEIF [CND(I1 . JJ.KK 
MM * 1 


ELSEIF (CNO (II.JJ.KK 


ELSEIF (CND (II. JJ.KK 


ELSE I F ( CNO (II.JJ.KK 


ELSE I F ( CNO (II.JJ.KK 


ELSE I F ( CNO I 1 I , JJ . KK 


ELSEIF ( CNO t II.JJ.KK 
MM » 1 


ELSE I F (CNDI II.JJ.KK, 
MM * I 


ELSE t F ( CND ( I I . JJ . KK . 


ELSEIF [ CND ( II.JJ.KK, 
MM * 1 


ELSEIF ( CND ( I I .JJ.KK 
MM * 1 


ELSEIF ( CND ( I I , JJ.KK 
MM * 1 


ELSE 1 F { CND ( I I . J J . KK 
MM « 1 


ELSE IF ( CND ( I I , J J , KK . 
MM t 1 


ELSE I F { CND (II. J J , KK , 

MM t 1 


ELSEIF ( CNO ( I I . J J , KK , 


ELSEIF ( CND (II.JJ.KK 


ELSE I F ( CND ( I I , J J , KK 
MM * 1 


ELSEIF (CNO( II.JJ.KK, 


ELSEIF ( CNO ( I I . J J , KK 


ELSEIF ( CNO ( I 1 . J J . KK , 


ELSEIF ( CNO ( I I . J J , KK . 
MM * 1 


ELSE I F ( CNO (II.JJ.KK, 


ELSEIF ( CNO [ I I . JJ . KK , 
MM * 1 


ELSE I F ( CNO (II.JJ.KK, 


ELSE l F ( CNO (II.JJ.KK. 


ELSE I F ( CNO (II.JJ.KK. 
MM ■ 1 


ELSE I F [ CND ( I I , JJ . KK , 

MM • 1 


ELSEIF ( CND( II.JJ.KK, 
MM * 1 


J . K * 3 ) J THEN 
INI . J , K* 3 ) ) THEN 
1 . J , K * 3 1 ) THEN 
IF1.J.K-3J) THEN 
I , JM 1 . KM2 J 1 THEN 
1 M 2 , J , K M2 || THEN 
I M 1 , J , K M2 I ) THEN 
I . J . KM 2 ) ) THEN 
I P 1 , J , KM2 ) ) THEN 
I . JM , KM2 ) ) THEN 
t M2 , JM1 , KM1 ) 1 THEN 
IMI , J M 1 , KM 1 ) | THEN 
t . J M 1 , KM 1 ) ) THEN 
I P 1 , JH1 , K M 1 J 1 THEN 
I M2 , J , KM 1 ) ) THEN 
I Ml , J . KM1 | | THEN 
I . J , KM 1 | | THEN 
IP1 , J . KM 1 ) | THEN 
IM2.JP1 ,KM1 ] ) THEN 
IMI , JP 1 . KM1 J ) THEN 
I , JP 1 , KM1 J } THEN 
I P 1 . JP 1 . KM1 ) J THEN 
I M2 . JM1 . K | ) THEN 
IMI . JM 1 , K | ) THEN 
I.JM1.K1) THEN 
IP1.JMI.KII THEN 
IM2.J.K)] THEN 
IMI ,J,K) ) THEN 
I.J.K) ) THEN 
IP ! . J . K) ) THEN 
IM2.JP1.K)) THEN 
IM1.JM.K)] THEN 
I , JP I , K J ) THEN 


C-2.1 




t *r 


* * " * rto:,; f S 

: ryt&uT;’ 


>99 1 

C 

9 9 4 


19 9 7 


f LSE I F 

(CNDl II.JJ.KK, I R 1 , JP 1 , K ) | THEN 

II9» 


MM a 1 


99 9 9 . 


CND I F 


7000 . 

c 



700 1 . 


RETURN 


700 2. 


END 


7003 . 


SUBROUTINE R 3 E ( J , I 11 , KK , MM) 

7004 . 

c 

R3E .90* 

7005 . 

c 



7005 . 


I NCI UDE ( INTROM) 

7007 . 

c 

93 5 


7001 . 


19 ICND| 11 I M2 , J , KM2 ] ) THEN 

7009 


MM a 1 


7010. 

c 

937 


7011. 


Et.SE 1 9 

( CNO ( I 1 . J J , KK , I Ml , J , KM2 ) ] THCN 

7012. 


MM a t 


7013. 

c 

938 


7014. 


ELSE T9 

(CNDl I l , JJ,KK, I , J, KM2 ) ) THEN 

7015. 


MM a 1 


70 1 t . 

c 

939 


70 17. 


ELSE I 9 

1 CND ( I I . J J . KK . I F 1 . J , KM2 ) 1 THEN 

70 11 


MM a 1 


7019. 

c 

95 * 


7020 . 


E LSE I 9 

1 CND ( I I , J J , KK , I M2 , JM 1 , KM 1 ) ) THEN 

702 1. 


MM ■ 1 


7022 

c 

957 


7023 . 


E LSE 1 9 

I CNO ( I I , J J , KK . I Ml , JMI . KM1 ) ) THEN 

7024 . 


MM « 1 


7025 . 

c 

95* 


702* . 


ELSE I 9 

{ CNO (I J . J J . KK , 1 . JM1 , KM1 | ) THEN 

7027 . 


MM t 1 


702* 

c 

959 


702 1. 


ELSE 1 9 

{ CNO l I 1 , J J , KK , 1 9 1 , JM 1 , KM 1 ) ) THEN 

7030 . 


MM a 1 


703 1. 

c 

9* 1 


7032 . 


ELSE IF 

[CND| I I , J J . K K , I M2 . J , KM 1 ) ) THEN 

7033 . 


MM a 1 


7034 . 

c 

9*2 


7035 . 


E LSE IF 

[ CND | I I , J J , KK . I Ml . J . KM1 ) | THEN 

7031 . 


MM ■ 1 


7037 . 

c 

9 « 3 


7031 . 


ELSE I F 

( CNO ( I I , J J , KK . I , J . KM1 J) THEN 

7039 . 


MM * 1 


7010 . 

c 
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APPENDIX D 


MACSYMA CODE TO FIND THE SENSITIVITY 
OF THE PRESSURE COEFFICIENT WITH RESPECT TO 

THE DESIGN VARIABLES 



/« */ 

/- RC.MAC : SENSITIVITY OF CP W.R.T. XD'S ’/ 

/* DESIGN VARIABLES : [ XD 1 , XD2 , XD3 , XD4 , XD5 ] * [MACH, AOAR , T. C, L] '/ 

/' 

( SHOWTIME : TRUE, ROINF : ( 1 +G 1 *QINF*2 ) * G2 )$ 


FU (I,d) := CCI-P(d.K.I) + S*CC2*P( J, K+1 , I ) + CC3 - P ( d , K+2 , I )$ 

FXU() := TAI 1 *( FU( I , d) + S*FU( I- 1 ,d) ) + TA I 2 * ( FU ( I + 1 , d )+S*FU( I . d ) ) 
+ OXINF-XIXXI ( J , I ) $ 

FYU() :* TAdl «( FU( I , d ) + S”FU( I , d* 1 ) ) + TAd2- ( FU ( I , d+ 1 ) + S*FU ( I , d ) ) 

- OXINF-XIXXI ( d , I ) *XIYX ( J, I )S 

UU () := (XIXX( J, I )*2+XIYX( J. I )?2 ) *FXU( ) + X I Y X ( J . I ) *F YU ( ) $ 

VU () := XIYX(d. I ) *FXU( ) + FYU()$ 

DPU() : = UU()*DDZXU + VU()*DDZYU$ 

FL (I,d) := CC4-P ( J , K , I ) + S-CC5-P ( d , K- 1 . I ) + CC6 * P ( d . K-2 , I ) $ 
FXL( ) : = TAI 1 * ( F L ( I ,d)+S*FL(I- 1 ,d ) ) + TAI 2- ( F L ( I + 1 , d ) + S*FL( I , d) ) 

+ OXINF-XIXXI ( J , I )$ 

FYL() := TAd1»(FL(I.d)+S*FL(I.d-D) + TA J2 - ( F L ( I , d+ t ) + S * FL ( I . d ) ) 

- OXINF-XIXXI (d , I )*XIYX(d, I )$ 

UL () := (XIXX(d, I )3‘2 + XIYX(d, I )f2)*FXL( ) + X I YX ( J , I ) *F YL ( )$ 

VL () := XIYX( d, I ) *FXL( ) + FYL()$ 

DPLO():= ULO-DDZXL + VL()-ODZYLS 

RHOU():= ( 1+G1-(UU( )-FXU( )+VU( )*FYU( )+DPU < ) ?*2 ) ) * G2$ 

RHOL ( ) : = (1+G1-(UL()-FXL()*VL()*FYL()+DPL0()?‘2)) i-G2$ 


CPU ():= G7 * (RHOU( ) 5-G8-ROINF5-G8 ) / ( RO I NF - 0 1 NF ?2 ) $ 

CPL ( ) : = G7 - (RHOL( ) *G8 - RO INF ^8 ) / ( RO I NF - 0 1 NF 1 2 ) $ 

/ 

RTTU : 

[P(d-1,K , I ) = P83 ,P(d ,K , I - 1 ) =P87 ,P(d ,K ,1 )=P88 ,P(d 

P ( d+ 1 , K , I ) = P93 ,P(d-1,K+1,I ) = P 1 08 , P ( d , K+ 1 , I - 1 ) =P 1 1 2 , P ( d 

P(d.K+1 . 1 + 1 ) = P1 14 , P( d+1 , K+1 , I ) = P 1 18 , P(d- 1 . K + 2 . I )=P133,P(d 
P ( d , K+2 , I ) = P 1 38 , P ( d , K + 2. 1 + 1 )=P133 ,P( d-1 .K + 2 , I )=P143]$ 
RTTL : 

[P(d-1 ,K-2.I)=P33 ,P(d , K-2, 1-1 )=P37 ,P(d .K-2,1 )=P38 ,P(d 

P(d+1 ,K-2, I )=P43 ,P(d-1.K-1,I ) =P58 ,P(d , K- 1 , I - 1 ) = P62 ,P(d 
P(d, K- 1 , 1 + 1 ) = P64 ,P(d+1,K-1,I ) =P68 ,P(d-1.K ,1 )=P83 ,P(d 

P(d,K .1 )=P88 ,P(d , K , I + 1 ) =P89 ,P(d+1.K ,1 )=P93]$ 


*/ 


, K , I+1)=P89 . 
, K+ 1 , I ) =P 1 13, 
, K+2, 1-1 )=P137. 


, K-2 , 1+ 1 ) =P39 , 
, K- 1 , I ) =P63 . 
, K , I - 1 ) =P87 . 


SDPU :[P83,P87,P88,P89,P93,P108,P112,P113,P114,P118,P133,P137,P138,P139,P143]$ 
SDPLO: [P33,P37,P38,P39,P43,P58,P62,PG3,P64,P68,P83,P87.P88.P89,P93]S 
LdKI :[d-2=dM2, d-1=dM1, d+1*dP1, d+2=dP2, I-2-IM2. I-1-IM1, I+1+IP1, I+2=IP2]$ 
/. -/ 

(CPU : SUBST ( RTTU , CPU ( ) ) , CPL : SUBST ( RTTL . CPL ())) $ 


( MATCHDECLARE ( [DIFF.A.B] .TRUE), TELLS I MP ( ' D I FF ( A , B ) , CONCAT ( A , B ) ) )$ 

( SDES : [XD1 ,XD2,XD3,XD4,XD5] , SDES 1 : ( XD 1 , XD2 ] , SDES2: [XD3.XD4.XD5] )$ 

DEPENDS ( [QXINF .OZINF ] , SDES1 , [ DDZXU . DDZYU , DCZXL , DDZYL ] , SDES2 , OINF , XD 1 )$ 


DEPENDS( SDPU, SDES 1 , SDPLO , SDES 1 )$ 

FOR M : 1 THRU LENGTH ( SDE S 1 ) DO ( DCPU[M]: D I F F ( CPU , SD ES 1 [ M ] ) . 

DCPL [M] : DIFF(CPL , SDES1 [M] ) )$ 

( REMOVE (SDPU, DEPENDENCY ) , REMOVE ( SDPLO , DEPENDENCY ) , KILL (RULES) )$ 

FOR L : 1 THRU LENGTH(RTTU) DO ( RTTU [ L ] : SUB ST ( LdK I , RTTU [ L ] ) )$ 

FOR L : 1 THRU LENGTH(RTTL) DO ( RTT L [ L ] : SUE ST ( LdK I . RTTL [ L ] ) )$ 

/* ’/ 

TITLET(ST 1 ,ST2,ST3) := ( GENTRAN( LITERAL ( TAB . EVAL ( ST 1 ), CR )) . 

GENTRAN( LITER AL( "C" , TAB , EVAL( ST2 ) , CR , "C " , CR . TAB , EVAL ( ST3 ) . CR) ) )$ 

TITLEB( ) : = GENTR AN( L ITERAL ( “C “ , CR , T AB , " RETURN “, CR . TAB , "END" , CR ) )$ 

TITLE 1 ( LNR , RTT ) := ( GENTR AN ( L I T ERA L ( " C ” . CR , “ C " . TAB . " P . PXD ” . CR . “C " . CR ) ) , 

FOR L : 1 THRU LNR DO 

G£NTRAN( LITERAL(TAB, £VAL( RHS (RTT[L])),“ - " . E VA L ( LHS ( RTT [ L ] ) ) , CR ) ) )$ 

TITLE4 ( ST 1 , RRTT , DRD ) : = GENTR AN ( LRS ETQ( EVAL ( CONCAT ( ST 1 , RRTT ) ) . DRD ) ) $ 

SUBRCX (ST 1 ,ST2,ST3,M) : = ( TITLET ( ST 1 , ST2 , ST3 ) , 

GENTRAN( LITERAL(TA8 , "K = KUP » ,CR)), TITLE 1 ( LENGTH( RTTU ). RTTU ) , 

FOR L : 1 THRU LENGTH(RTTU) DO ( PNN : RHS ( RTTU [ L ]) , RTT: LHS ( RTTU [ L ]) . 

GENTRAN(LITERAL(TAB , EVAL(PNN) , EVAL( SDES[M] ) , " * P ", EVAL ( RTT ). CR ) ) ). 

GENTRAN( LITER AL ( "C ", CR , "C" .TAB, "DCPU" ,CR ) ) , TI TLE4 ( "CPU “, SDES [ M ] ,DCPU[M] ) , 

GENTR AN ( LITERAL(TAB, "K = KLOW.CR)), TITLE 1 ( LENGTH( RTTL ). RTTL ) . 

FOR L : 1 THRU LENGTH(RTTL) DO ( PNN: RHS ( RTTL [ L ]) , RTT: LHS ( RTTL [ L ]) . 

GENT RAN (LITERAL(TAB, EVAL( PNN ) ,EVAL(SDES[M] ) , “ = P ", EVAL ( RTT ). CR ) ) ), 

GENTRAN(LITERAL( " C " . CR , " C " , T AB , “DCPL" ,CR ) ) , TITLE4 ( "CPL ", SDES [M ] ,DCPL[M] ) , 

/. -/ TI TLEB ( ) )$ 

( GENTRANOUT ("RC.FOR"), GENTRANOPT : TRUE)$ 

SUBRCX ( "SUBROUTINE RCXD1 ( d, I , CPUXD 1 .CPLXD 1 ) ■ , "RCXD 1 . FOR" . "INCLUDE ( INTROX) “ , 1 )$ 

SUBRCX ( "SUBROUTINE RCXD2(d, I , CPUXD2 , CPLXD2 ) " . "RCXD2 . FOR" , "INCLUDE ( INTROX) " , 2)$ 

/■ V 
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WING PLANFORM : 


ONERA M6 

ROOT CHORD 1.00 

TIP CHORD 0.56 

MEAN CHORD 0.80 

AREA 1.16 

REF. AREA 1.16 

REF CHORD 0.80 

REF MOMENT 0.25 


O.Q 



2.QA 


i.o4 


0.0 

ASPECT RATIO 

— i r 1 

1-0 2.0 1 

Y 

3.80 

TAPER RATIO 

0.56 

SEMI SPAN 

1.48 

L.E. SWEEP 

30.00 

T.E. SWEEP 

15.76 

ROOT TWIST 

0.00 

TIP TWIST 

0.00 



MEDIUM GRID 45 30 16 

PARABOLIC-ARC SECTION 


MACH NUMBER 0.80 

ANGLE OF ATTACK 0.00 

AIRFOIL MAX THICKNESS 0.06 

AIRFOIL MAX CAMBER 0.00 


LOCATION OF MAX CAMBER 0.40 
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ETA(1) = 0.000 


ETA(4) = 0.154 


ETA(8) = 0.359 
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